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j 

i PIED PIPER CHARACTER SET PROH 

A 

I 

; OCTOBER 1?» 1?82 

‘ EACH CHARACCTER BEGIHS HITH A LABEL HXY‘ 
f HHERE XY IS THE HEX VALUE OF THE CHARACTER 


0000' 





HOO^ 



0000' 

10 

10 

10 

10 


DB 

10H»10H»10HjlOHflFHjGOHfOOHrOOH 

0001' 

IF 

00 

00 

00 




0008' 

00 

00 

00 

00 


DB 

OOHfOOHjOOH.OOHjOOHjOOHfOOHjOOH 

oooc. 

00 

00 

00 

00 




0010' 





HOn 



0010' 

00 

00 

00 

00 


DB 

OOHiODHfOOHiOOHflFHrlOHrlOHflOH 

0011' 

IF 

10 

10 

10 




0018' 

10 

00 

00 

00 


DB 

lOHjOOHjOOHfOOHfOOHfOOHsOOHfOOH 

OOIC 

00 

00 

00 

00 




0020' 





H02; 



0020' 

10 

10 

10 

10 


DB 

lOHjlOHrlOHflOHfOFOHjOOHfOOHfOOn 

0021' 

FO 

00 

00 

00 




0028' 

00 

00 

00 

00 


DB 

OOHfOOHfOOHrOOHfOOHfOOHfOOH»OOH 

002C’ 

00 

00 

00 

00 




0030' 





H03: 



0030' 

00 

00 

00 

00 


DB 

OOHfOGHrOOHrOOHrOFOHilOHflOHrlOH 

0031' 

FO 

10 

10 

10 




0038' 

10 

00 

00 

00 


OB 

10HrOOHrOOHfOOH»OOH>ODHfOOH>OOH 

003C' 

00 

00 

00 

00 




0010' 





HOIt 



0010' 

10 

10 

10 

10 


DB 

10H>10H>10H»10Hr0FFHf00Hf00Hf00H 

0011' 

FF 

00 

00 

00 




0018' 

00 

00 

00 

00 


DB 

OOH>OOH>OOHfOOHiOOHrOOH>OOHfOOH 

OOIC 

00 

00 

00 

00 




0050' 





H05; 



0050' 

00 

00 

00 

00 


DB 

OOHrDOH>OOHfOOH>OFFH>10H»10H>10H 

0051' 

FF 

10 

10 

10 




0058' 

10 

00 

00 

00 


DB 

10HrOOH>OOHfOOH>OOH>OOH>OOH>OOH 

005C' 

00 

00 

00 

00 




0060' 





H06: 



0060' 

10 

10 

10 

10 


DB 

lOHflOHr10H>10H>IFHr10H>lOHrlOH 

0061' 

IF 

10 

10 

10 




0068' 

10 

00 

00 

00 


DB 

10Hi00Hf00Hf00Hr00H>00H>00H>00H 

006C' 

00 

00 

00 

00 




0070' 





H07J 



0070' 

10 

10 

10 

10 


DB 

lOHrlOHr10H>lOHrOFOHflOHflOHrlOH 

0071' 

FO 

10 

10 

10 




0078' 

10 

00 

00 

00 


DB 

10HfOOHrOOH>OOHrOOH>OOH>OOHfOOH 

007C' 

00 

00 

00 

00 




0080' 





Host 



0080' 

EO 

80 

80 

E8 


DB 

0E0H>080Hr080Hr0E8Hr030Hr02EH>028H>08H 

0081' 

30 

2E 

28 

08 




0088' 

OE 

00 

00 

00 


DB 

OEHrOOHrOOHrOOHrOOHfOOHfOOHfOOH 

008C' 

00 

00 

00 

00 




0090' 





H09t 



0090' 

FF 

AB 

D7 

AB 


DB 

0FFHr0ABH>0D7H>0ABH>0D7Hr0ABH>0D7Hf0ABH 







HACRO-80 3.14 09-Dec-81 PAGE 


oo9r 

D7 

A8 

07 

AB 



0098' 

FF 

00 

00 

00 


DB 

009C' 

00 

00 

00 

00 



OOAQ' 





hoa: 


OOAO' 

10 

10 

10 

10 


DB 

00A1' 

FF 

10 

10 

10 



00A8' 

10 

00 

00 

00 


DB 

OOAC 

00 

00 

00 

00 



0080' 





HOBI 


0080' 

10 

10 

10 

10 


DB 

0081' 

10 

10 

10 

10 



0088' 

10 

00 

00 

00 


DB 

OOBC 

00 

00 

00 

00 



OOCO' 





hoc; 


OOCO' 

00 

00 

00 

00 


DB 

00C1' 

FF 

00 

00 

00 



00C3‘ 

00 

00 

00 

00 


DB 

OOCC 

00 

00 

00 

00 



OODO' 





hod; 


OODO' 

00 

7C 

00 

00 


DB 

0001' 

00 

00 

00 

00 



0008' 

00 

00 

00 

00 


DB 

OOOC 

00 

00 

00 

00 



OOEO' 





hoe; 


OOEO' 

00 

00 

08 

7C 


DB 

00E1' 

10 

7C 

20 

00 



00E8' 

00 

00 

00 

00 


DB 

OOEC 

00 

00 

00 

00 



OOFO' 





hof; 


OOFO' 

00 

00 

00 

00 


DB 

00F1' 

10 

28 

10 

00 



00F8' 

00 

00 

00 

00 


DB 

OOFC 

00 

00 

00 

00 



0100' 





Hio; 


0100' 

AO 

CO 

80 

A8 


DB 

0101' 

38 

2E 

08 

OC 



0108' 

08 

00 

00 

00 


DB 

OlOC 

00 

00 

00 

00 



0110' 





Hii; 


0110' 

00 

00 

10 

00 


DB 

0111' 

7C 

00 

10 

00 



0118' 

00 

00 

00 

00 


DB 

one 

00 

00 

00 

00 



0120* 





H12; 


0120' 

00 

60 

18 

01 


DB 

0121' 

18 

60 

00 

7C 



0128' 

00 

00 

00 

00 


DB 

012C' 

00 

00 

00 

00 



0130' 





H13; 


0130' 

00 

OC 

30 

10 


DB 

0131' 

30 

OC 

00 

7C 



0138' 

00 

00 

00 

00 


DB 

013C' 

00 

00 

00 

00 



0110' 





Hii; 


0110' 

00 

38 

20 

20 


DB 

0111' 

20 

20 

20 

20 




1-1 

OFFHjOOH»OOHjOOH»OOHjOOH»OOHjOOH 

lOHjlOHrlOHjlOHjOFFHflOHflOHjlOH 

10HjOOHjOOH»OOH»OOH»OOHjOOH»OOH 

lOHrlOHflOH.lOHflOH.lOHrlOHrlOH 

10Hj00Hj00H?00H»00H.00H»00H»00H 

00H»00Hj00Hf00Hf0FFH500H»00Hj00H 

OOHfOOHjOOH»OOHjOOHrOOH?OOH»OOH 

OOHjZCHfOOHjOOHfOOHiOOHfOOHrOOH 

OOH»OOH»OOH»OOHjOOH?OOH»OOHfOOH 

00Hj00Hf08Hj07CHrl0Hr07CH»20Hr00H 

OOHjOOHjOOH»OOH»OOHfOOH»OOH»OOH 

OOHjOOHrOOH»OOHflOH»28HflOHjOOH 

OOHjOOHjOOH»OOHfOOH>OOH»OOHfOOH 

OAOHrOCOH>080H>OA8H»O38H>O2EHrO8Hf0CH 

08H,OOHjOOHfOOH»OOHjOOHfOOHfOOH 

OOH»OOHflOHjOOH»7CHfOOHjlOHfOOH 

OOH>OOH>OOH>OOH»OOHfOOH>OOH>OOH 

00Hf6OH»18Hj01Hfl8H»6OH»0OH»7CH 

OOHjOOHfOOHjOOHjOOHfOOHiOOHjOOH 

00Hj0CH»30Hf10Hf30H»0CHf00H»7CH 

OOH;OOHfOOHrOOHfOOH>OOHrOOH>OOH 

OOHf38HT20Hf20H>20Hj20Hr20Hf20H 





OHS' 

00 

00 

00 

00 


DB 

OOHfOOHiOOH^OOHfOOHrOOHrOOHrOOH 

OHC 

00 

00 

00 

00 




0150' 





H15J 



0150' 

00 

20 

20 

20 


DB 

OOHj20Hj20H»20H»20Hf20H»20H.38H 

oisr 

20 

20 

20 

38 




0158' 

00 

00 

00 

00 


DB 

OOH f OOH f OOH f OOH»OOH»OOH » OOH » OOH 

015C' 

00 

00 

00 

00 




0160' 





H165 



0160' 

00 

7C 

11 

11 


DB 

00H.7CHj11HH1H»11Hf11Hf11H»7CH 

0161' 

11 

11 

11 

7C 




0168' 

00 

00 

00 

00 


DB 

OOHrOOH»OOH»OOHjOOHjOOH»OOH»OOH 

016C' 

00 

00 

00 

00 




0170' 





H17t 



0170' 

00 

10 

10 

10 


DB 

OOH»lOHrlOH rlOH»lOH flOHrlOH»7CH 

0171' 

10 

10 

10 

7C 




0178' 

00 

00 

00 

00 


DB 

OOH»OOHrOOHjOOH»OOHjOOHfOOH»OOH 

017C' 

00 

00 

00 

00 




0180' 





H18S 



0180' 

00 

10 

38 

51 


DB 

OOHflOHf38H»51HjlOHflOHflOHjlOH 

0181' 

10 

10 

10 

10 




0188' 

00 

00 

00 

00 


DB 

OOH»OOHjOOHjOOH>OOHjOOH»OOHfOOH 

018C' 

00 

00 

00 

00 




0190' 





H195 



0190' 

00 

10 

10 

10 


DB 

OOHrIOH t lOHf10H»10Hi51H>38HflOH 

0191' 

10 

51 

38 

10 




0198' 

00 

00 

00 

00 


DB 

OOH j OOH j OOH r OOH»OOH j OOH»OOH»OOH 

019C' 

00 

00 

00 

00 




OlAO' 





hia: 



OlAO' 

00 

00 

08 

01 


DB 

00Hf00H.08H»01H»7EHj01Hf08Hj00H 

01A1' 

7E 

01 

08 

00 




01A8' 

00 

00 

00 

00 


DB 

OOHfOOHjOOHfOOHfOOHfOOHfOOHfOOH 

OlAC 

00 

00 

00 

00 




OIBO' 





hib: 



OIBO' 

00 

00 

10 

20 


DB 

00Hf00Hjl0Hf20H>7EHj20Hrl0Hj00H 

01B1' 

7E 

20 

10 

00 




01B8' 

00 

00 

00 

00 


DB 

OOH>OOHfOOH>OOHfOOHfOOHfOOH>OOH 

OIBC 

00 

00 

00 

00 




OICO' 





HICJ 



OICO' 

00 

20 

10 

10 


DB 

OOHf20H»10HrlOHflOHflOHrlOHfOBH 

01C1' 

10 

10 

10 

08 




01C8' 

00 

00 

00 

00 


DB 

OOHfOOHjOOHjOOHiOOH»OOH»OOHfOOH 

OICC 

00 

00 

00 

00 




OIDO' 





hid; 



OIDO' 

00 

00 

00 

78 


DB 

00Hj00Hf00Hr78Hj01Hf01Hf01Hi78H 

01D1' 

01 

01 

01 

78 




01D8' 

00 

00 

00 

00 


DB 

OOHfOOH»OOH»OOH»OOHfOOH»OOHTOOH 

OlDC 

00 

00 

00 

00 




OlEO' 





hie; 



OlEO' 

00 

00 

10 

10 


DB 

00Hj00H»10H>10Hj28H»28Hr11Hj7CH 

01E1' 

28 

28 

11 

7C 




01E8' 

00 

00 

00 

00 


DB 

OOH»OOHjOOH»OOH»OOH.OOHfOOHjOOH 

OlEC 

00 

00 

00 

00 




OlFO' 





hif; 



OlFO' 

00 

00 

7C 

11 


DB 

OOH»OOH»7CHr11H»28H>28HflOHflOH 

01F1' 

28 

28 

10 

10 




01F8' 

00 

00 

00 

00 


DB 

OOH»OOH»OOH»OOHfOOHfOOHfOOH»OOH 
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OlFC 

00 00 00 00 


0200' 


H20; 

0200' 

00 00 00 00 


02 or 

00 00 00 00 


0208' 

00 00 00 00 


020C' 

00 00 00 00 


0210' 


H2i; 

0210' 

00 10 10 10 


0214' 

10 10 00 10 


0218' 

00 00 00 00 


021C' 

00 00 00 00 


0220' 



0220' 

00 28 28 28 


0224' 

00 00 00 00 


0228' 

00 00 00 00 


022C' 

00 00 00 00 


0230' 


H23J 

0230' 

00 28 28 7C 


0234' 

28 7C 28 23 


0238' 

00 00 00 00 


023C' 

00 00 00 00 


0240' 


H24t 

0240' 

00 10 3C 50 


0244' 

38 14 73 10 


0248' 

00 00 00 00 


024C' 

00 00 00 00 


0250' 


H25J 

0250' 

00 60 64 08 


0254' 

10 20 4C OC 


0258' 

00 00 00 00 


025C' 

00 00 00 00 


0260' 


H26; 

0260' 

00 10 28 28 


0264' 

30 54 48 34 


0268' 

00 00 00 00 


026C' 

00 00 00 00 


0270' 


H27; 

0270' 

00 10 10 20 


0274' 

00 00 00 00 


0278' 

00 00 00 00 


027C' 

00 00 00 00 


0280' 


H28J 

0280' 

00 08 10 20 


0284' 

20 20 10 08 


0288' 

00 00 00 00 


028C’ 

00 00 00 00 


0290' 


H29; 

0290' 

00 20 10 08 


0294' 

08 08 10 20 


0298' 

00 00 00 00 


029C' 

00 00 00 00 


02A0' 


H2A; 

02A0' 

00 00 10 54 


02A4' 

38 54 10 00 


02A8' 

00 00 00 00 


02AC' 

00 00 00 00 
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DB OOHjOOHrOOHfOOHfOOHfOOHjOOHjOOH 

DB OOH»OOH»OOHjOOHrOOH»OOHjOOH»OOH 

DB OOHrlOHriOHrlOHr10H>lOHrOOHrlOH 

DB OOHfOOHfOOHfOOHrOOHfOOHrOOHrOOH 

DB OOH!28H>28HF2BHrODHtODHrODH>DOH 

DB OOH»OOH»OOH»OOH>OOH»OOH»OOH»OOH 

DB 00Hj28Hf28Hf7CHf28Hr7CHj28Hr28H 

DB OOHrOOHfCOH>OOH»OOHrOOH>OOH>OOH 

DB 00Hfl0Hf3CHr50H»38Hfl1H»78Hrl0H 

DB OOH»OOH»OOHfOOHiOOHjOOH»OOHjOOH 

DB 00Hr60Hr61HF08H»10Hf20Hf1CH»0CH 

DB OOHrOOH>OOH>OOHfOOHrOOH>OOH*OOH 

DB 00Hfl0H»2BHf28Hf30Hr51Hf18Hr31H 

DB OOH>OOHrOOHrOOH>OOHfOOH>OOH>OOH 

DB OOH»10HflOHf20HfOOHjOOHrOOHrOOH 

DB OOHfOOH*OOHrOOH>OOH*OOH>ODH>OOH 

DB 00Hf08Hrl0H>20H»20Hf20Hfl0H>08H 

DB OOH>OOHfOOHrOOH>OOH>OOH»OOH>OOH 

DB 00Hf20H>lDHT08Hf08Hr08Hrl0H>20H 

DB OOHrOOH>OOH;OOH>OOHrOOHrOOH>OOH 

DB 00Hr00H>10Hr5^H>38H>51Hrl0H>00H 

DB OOH»OOHfOOH»OOH»OOHjOOHjOOH»OOH 
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0280' 





H28: 



0280’ 

00 

00 

10 

10 


D8 

OOH>OOHdOHflOH>7CH>10HrlOHfOOH 

0284' 

?C 

10 

10 

00 




0288' 

00 

00 

00 

00 


08 

00H»00H»00Hf00H»00Hf00Hf00Hf00H 

02BC’ 

00 

00 

00 

00 




02C0' 





H2C: 



02C0' 

00 

00 

00 

00 


DG 

OOH*OOH>OOH>OOHiOOH>OOHrlOHrlOH 

02C4' 

00 

00 

10 

10 




02C8' 

20 

00 

00 

00 


08 

20HjOOH»OOHfOOHfOOH»OOH»OOH>OOH 

02CC’ 

00 

00 

00 

00 




02D0' 





H2d; 



02D0' 

00 

00 

00 

00 


08 

OOHfOOH»OOHfOOH»7CH»OOH»OOHrOOH 

02D4' 

7C 

00 

00 

00 




02D8' 

00 

00 

00 

00 


08 

OOHfOOHfOOHrOOHfOOHfOOHfOOHrOOH 

02DC' 

00 

00 

00 

00 




02E0' 





H2E5 



02E0' 

00 

00 

00 

00 


08 

OOHfOOHfOOHfOOH>OOHrOOH>OOHrlOH 

02E4' 

00 

00 

00 

10 




02E8’ 

00 

00 

00 

00 


08 

OOH>OOHfOOH»OOH>OOH>OOHrOOH>OOH 

02EC’ 

00 

00 

00 

00 




02F0' 





H2FJ 



02F0' 

00 

00 

04 

08 


08 

00H»00Hj04Hf08Hfl0H»20Hf40Hr00H 

02F4' 

10 

20 

40 

00 




02F8' 

00 

00 

00 

00 


08 

OOHjOOHjOOHjOOHfOOH»OOH»OOH»OOH 

02FC' 

00 

00 

00 

00 




0300' 





H30: 



0300' 

00 

38 

44 

4C 


08 

00Hf38Hr44H.4CH»54Hj64H»44Hf38H 

0304' 

54 

64 

44 

38 




0308' 

00 

00 

00 

00 


08 

OOH>OOH>OOHfOOH>OOH>OOHfOOHrOOH 

030C' 

00 

00 

00 

00 




0310' 





H31J 



0310' 

00 

10 

30 

10 


08 

00Hrl0Hf30H>10Hrl0Hfl0HTl0Hr38H 

0314’ 

10 

10 

10 

38 




0318' 

00 

00 

00 

00 


08 

OOH>OOH>OOHfOOH>OOH>OOHfOOHrOOH 

031C' 

00 

00 

00 

00 




0320’ 





H32} 



0320' 

00 

38 

44 

04 


08 

00Hf38H,44H»04H»18H»20H»40H»7CH 

0324' 

18 

20 

40 

7C 




0328' 

00 

00 

00 

00 


08 

OOH>OOH?OOH>OOH>OOH>OOHrOOH>OOH 

032C' 

00 

00 

00 

00 




0330' 





H33{ 



0330' 

00 

7C 

04 

08 


08 

OOH»7CHf04H»08Hrl8H»04Hf44Hf38H 

0334' 

18 

04 

44 

38 




0338' 

00 

00 

00 

00 


08 

OOHrOOHrOOH>OOH>OOH»OOH>OOHfOOH 

033C' 

00 

00 

00 

00 




0340' 





H34; 



0340' 

00 

08 

18 

28 


08 

00Hr08H»18Hr28H»48H>7CH>08Hr08H 

0344' 

48 

7C 

08 

08 




0348' 

00 

00 

00 

00 


08 

OOH>OOH>OOHrOOH!OOH>OOH>OOH>OOH 

034C' 

00 

00 

00 

00 




0350' 





H35; 



0350' 

00 

7C 

40 

78 


08 

0OHf7CHf4OH»78HfO4H»O4Hj44H»38H 

0354’ 

04 

04 

44 

38 




0358' 

00 

00 

00 

00 


08 

OOH»OOH»OOHfOOHfOOH»OOHfOOH»OOH 

035C’ 

00 

00 

00 

00 




0360' 





H36! 





0360' 

00 

18 

20 

10 


D8 

OOHfl8Hj20H»10Hj78H»11H>11Hj38H 

0361' 

78 

11 

11 

38 




0368' 

00 

00 

00 

00 


D8 

OOH>OOH>OOHyOOH>OOH>OOHfOOH>OOH 

036C' 

00 

00 

00 

00 




0370' 





H37; 



0370' 

00 

7C 

01 

08 


08 

00Hf7CHf01Hj08Hfl0H»20Hj20Hf20H 

0371' 

10 

20 

20 

20 




0378' 

00 

00 

00 

00 


08 

OOHjOOHjOOH»OOHrOOH»OOH»OOH»OOH 

037C' 

00 

00 

00 

00 




0380' 





H38; 



0380' 

00 

38 

11 

11 


08 

00H»38Hj11Hf11Hj38H»11H»11Hf38H 

0381' 

38 

11 

11 

38 




0388' 

00 

00 

00 

00 


08 

OOH»OOHfOOHfOOHrOOH>OOHrOOHfOOH 

038C' 

00 

00 

00 

00 




0390' 





H395 



0390' 

00 

38 

11 

11 


08 

00Hf38H»11Hj11Hf3CHj01HrO8H»30H 

0391' 

3C 

01 

08 

30 




0398' 

00 

00 

00 

00 


08 

OOH»OOHfOOHfOOHiOOH»OOH»OOH»OOH 

039C' 

00 

00 

00 

00 




03A0' 





H3A: 



03A0' 

00 

00 

00 

00 


08 

OOHrOOHfOOH>OOHrlOHrOOHrlOH>OOH 

03A1' 

10 

00 

10 

00 




03A8' 

00 

00 

00 

00 


08 

OOH>OOH>OOHfOOH>OOHfOOHrOOHrOOH 

03AC' 

00 

00 

00 

00 




0380' 





H38J 



0380' 

00 

00 

00 

00 


08 

OOH.OOHfOOH»OOHjlOH»OOHrlOHflOH 

0381' 

10 

00 

10 

10 




0388' 

20 

00 

00 

00 


08 

20H»00Hf00Hj00H»00H»00H?00Hj00H 

038C' 

00 

00 

00 

00 




03C0' 





H3CJ 



03C0' 

00 

08 

10 

20 


08 

OOH>O8H>lOH>20Hr1OH>2OH>lOHfO8H 

03C1' 

10 

20 

10 

08 




03C8' 

00 

00 

00 

00 


08 

OOH>OOH>OOHrOOHrOOH;OOH>OOH>OOH 

03CC' 

00 

00 

00 

00 




03D0' 





H3D: 



0300' 

00 

00 

00 

7C 


08 

00H»00Hj00Hf7CH>00HT7CH»00H»00H 

0301' 

00 

7C 

00 

00 




0308' 

00 

00 

00 

00 


08 

OOHfOOHjOOH»OOH»OOHfOOHjOOH»OOH 

030C' 

00 

00 

00 

00 




03E0' 





H3E! 



03E0' 

00 

20 

10 

08 


08 

00Hf20H>10Hf08Hr01H>08Hfl0H>20H 

03E1' 

01 

08 

10 

20 




03E8' 

00 

00 

00 

00 


08 

OOH»OOHfOOH»OOHrOOHfOOH»OOHfOOH 

03EC' 

00 

00 

00 

00 




O3F0' 





H3F; 



03F0' 

00 

38 

11 

01 


08 

00Hi38Hr11H>01H»08H>10Hr00Hrl0H 

03F1' 

08 

10 

00 

10 




03F8' 

00 

00 

00 

00 


08 

OOH»OOH»OOH»OOH,OOHfOOHjOOH»OOH 

03FC' 

00 

00 

00 

00 




0100' 





H10J 



0100' 

00 

38 

11 

5C 


08 

00Hf38H»11Hf5CH»51H»58H.11H»38H 

0101' 

51 

58 

11 

38 




0108' 

00 

00 

00 

00 


08 

OOHfOOHiOOHfOOHrOOHrOOHfOOHfOOH 

OIOC 

00 

00 

00 

00 




0110' 





H11J 



0110' 

00 

10 

28 

11 


08 

00H>10Hr28H»11Hf11Hf7CHj11H»11H 
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0111' 

11 

7C 

11 

11 



0118’ 

00 

00 

00 

00 


D8 

one 

00 

00 

00 

00 



0120' 





H12: 


0120' 

00 

78 

11 

11 


D8 

0121' 

78 

11 

11 

78 



0128' 

00 

00 

00 

00 


D6 

012C' 

00 

00 

00 

00 



0130' 





H135 


0130' 

00 

38 

11 

10 


DB 

0131' 

10 

10 

11 

38 



0138' 

00 

00 

00 

00 


08 

013C' 

00 

00 

00 

00 



0110' 





H115 


0110' 

00 

78 

21 

21 


08 

0111' 

21 

21 

21 

78 



0118' 

00 

00 

00 

00 


08 

one 

00 

00 

00 

00 



0150' 





H155 


0150' 

00 

7C 

10 

10 


08 

0151' 

78 

10 

10 

7C 



0158' 

00 

00 

00 

00 


08 

015e 

00 

00 

00 

00 



0160' 





H16; 


0160' 

00 

7C 

10 

10 


08 

0161’ 

78 

10 

10 

10 



0168' 

00 

00 

00 

00 


08 

016 e 

00 

00 

00 

00 



0170' 





H17; 


0170' 

00 

38 

11 

10 


OB 

0171' 

10 

1C 

11 

3C 



0178' 

00 

00 

00 

00 


08 

017e 

00 

00 

00 

00 



0180' 





H18; 


0180' 

00 

11 

11 

11 


08 

0181' 

7C 

11 

11 

11 



0188' 

00 

00 

00 

00 


08 

018 e 

00 

00 

00 

00 



0190' 





H195 


0190’ 

00 

38 

10 

10 


08 

0191' 

10 

10 

10 

38 



0198' 

00 

00 

00 

00 


08 

019e 

00 

00 

00 

00 



MAO' 





hia: 


01A0' 

00 

01 

01 

01 


08 

01A1' 

01 

01 

11 

38 



01A8' 

00 

00 

00 

00 


08 

OIAC 

00 

00 

00 

00 



0180' 





H18; 


0180' 

00 

11 

18 

50 


08 

0181' 

60 

50 

18 

11 



0188' 

00 

00 

00 

00 


08 

018 e 

00 

00 

00 

00 



01C0' 





Hie; 


01C0' 

00 

10 

10 

10 


08 

01C1' 

10 

10 

10 

7C 




1-6 

OOHrOOH>OOH>OOHrOOH>OOHrOOHfOOH 

00H»78Hf11H>11Hr78Hf11Hr11H»78H 

OOH»OOH»OOH»OOHjOOH»OOH»OOH»OOH 

00H»38Hr11H»10Hf10H»10H»11Hf38H 

OOH>OOHfOOHfOOH>OOHfOOH>OOH>OOH 

00Hf78Hj21Hr21H»Z1H»21H»21H»78H 

OOH>OOH>OOHfOOH>OOHrOOH>OOH>OOH 

00H»7CH»10H»10Ht78H»10H»10H»7CH 

OOHfOOH»OOH»OOHfOOHfOOH»OOH»OOH 

00Hr7CH»10Hf10H»78H»10Hf10H>10H 

OOH>OOH!OOHiOOH>OOH;OOHrOOHrOOH 

00Hj38H»11Hf10Hf10Hf1CHf11Hf3CH 

OOHfOOHfOOHrOOHfOOHfOOHrOOHfOOH 

00Hj11Ht11Hr11Hf7CHr11H>11Hr11H 

OOH>OOHfOOHfOOHrOOH>OOH>OOH>OOH 

00H>38Hfl0H>10Hrl0Hfl0Hrl0Hr38H 

OOH>OOH>OOH>OOH>OOH>OOHrOOH>OOH 

00H»01Hf01H»01H»01H»01H»11Hr38H 

OOHfOOH>OOH>OOHiOOH>OOH>OOH>OOH 

00Hj11Hf18H»50Hr60Hi50H»18H»11H 

OOH>OOH>OOHrOOHrOOH>OOH>OOH>OOH 

00H»10H»10Hf10Hr10H»10Hf10Hf7CH 
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04C8' 

00 

00 

00 

00 


04CC' 

00 

00 

00 

00 


04D0' 





H4D: 

04D0' 

00 

44 

6C 

54 


04D4' 

44 

44 

44 

44 


04D8' 

00 

00 

00 

00 


04DC' 

00 

00 

00 

00 


04E0' 





H4E5 

04E0’ 

00 

44 

44 

64 


04E4' 

54 

4C 

44 

44 


04E8' 

00 

00 

00 

00 


04EC' 

00* 

00 

00 

00 


04F0’ 





H4F; 

04F0' 

00 

38 

44 

44 


04F4’ 

44 

44 

44 

38 


04F8' 

00 

00 

00 

00 


04FC' 

00 

00 

00 

00 


0500' 





H50: 

0500’ 

00 

78 

44 

44 


0504' 

78 

40 

40 

40 


0508’ 

00 

00 

00 

00 


050C' 

00 

00 

00 

00 


0510' 





H51t 

0510' 

00 

38 

44 

44 


0514' 

44 

54 

48 

34 


0518' 

00 

00 

00 

00 


051C' 

00 

00 

00 

00 


0520' 





H52: 

0520' 

00 

78 

44 

44 


0524' 

78 

50 

48 

44 


0528' 

00 

00 

00 

00 


052C' 

00 

00 

00 

00 


0530' 





H53t 

0530' 

00 

38 

44 

40 


0534' 

38 

04 

44 

38 


0538' 

00 

00 

00 

00 


053C' 

00 

00 

00 

00 


0540' 





H545 

0540' 

00 

7C 

10 

10 


0544' 

10 

10 

10 

10 


0548' 

00 

00 

00 

00 


054C' 

00 

00 

00 

00 


0550' 





H55: 

0550' 

00 

44 

44 

44 


0554' 

44 

44 

44 

38 


0558' 

00 

00 

00 

00 


055C' 

00 

00 

00 

00 


0560' 





H56: 

0560' 

00 

44 

44 

44 


0564’ 

28 

28 

10 

10 


0568' 

00 

00 

00 

00 


056C' 

00 

00 

00 

00 


0570' 





H57: 

0570' 

00 

44 

44 

44 


0574' 

54 

54 

54 

28 


0578' 

00 

00 

00 

00 



DB OOH»OOHfOOHfOOH»OOHfOOH»OOH»OOH 

DB OOHfOOHfOOH>OOH»OOH»OOHrOOHiOOH 

DB 00H»44Hf44Hj64H»54Hf4CH»44Hr44H 

DB OOH>OOH»OOHrOOHrOOH>OOH»OOH>OOH 

DB 00H»38Hf44Hr41H»44Hr44Hf44H»38H 

DB OOH.OOH.OOHfOOHfOOHiOOHfOOHfOOH 

DB 00H>78H»44Hr44Hf78H»40H»40Hf10H 

DB OOH»OOH»OOHjOOHfOOHfOOH»OOHjOOH 

OB 00H»38HH4Hj41Hj44H»54Hj48H»34H 

DB OOH»OOHfOOHfOOH»OOH»OOHfOOH>OOH 

DB 00H»78Hf44Hf44Hf78H»50Hf48H»44H 

DB OOH>OOH>OOHrOOH>OOHrOOH>OOH>OOH 

DB O0Hf38H»44H»10H>38H»O1H»14H>3BH 

DB OOH>OOHiOOHrOOHrOOHfOOH>OOHiOOH 

DB OOHT7CHflOHrlOHrlOHflOH>10HrlOH 

DB OOHfOOHfOOHrOOHrOOHrOOHrOOHfOOH 

DB 00H»44H»44Hr14Hf44H»44Hj44H»38H 

DB OOH>OOH>OOH>OOH>OOH>OOHfOOH>OOH 

DB 00Hf44Hf44Hf44Hj28H»28HTl0H»10H 

DB OOH>OOH)OOHrOOH>OOH>OOHrOOH>OOH 

DB 00Hf44H»44Hf44H»54Hr54Hf54H»28H 


DB 


OOH>DOH>OOHfOOH>OOHrOOHrOOH>OOH 
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057C‘ 

00 

00 

00 

00 




0580' 





H58! 



0580* 

00 

11 

11 

28 


D8 

00H»11Hj11Hf28H»10H»28H»11Hf11H 

0581' 

10 

28 

11 

11 




0588' 

00 

00 

00 

00 


D8 

OOH»OOHjOOHfOOH»OOHfOOHfOOHfOOH 

058C' 

00 

00 

00 

00 




0590' 





H59: 



0590' 

00 

11 

11 

28 


08 

OOH»11Hy11Hj28H»10H»10HflOHflOH 

0591' 

10 

10 

10 

10 




0598' 

00 

00 

00 

00 


08 

OOH»OOHrOOH»OOHjOOH»OOH»OOHrOOH 

059C' 

00 

00 

00 

00 




05A0’ 





H5A: 



05A0' 

00 

7C 

01 

08 


08 

00H»7CHf01Hj08H»10Hj20H>10Hf7CH 

05A1' 

10 

20 

10 

7C 




05A8' 

00 

00 

00 

00 


08 

OOH»OOHfOOH»OOH»OOH»OOHjOOH»OOH 

05AC' 

00 

00 

00 

00 




0580' 





H58; 



0580' 

00 

38 

20 

20 


08 

OOH»38Hr2OHT20H>2OHf2OH»2OHf38H 

0581' 

20 

20 

20 

38 




0588' 

00 

00 

00 

00 


08 

OOHfOOHrOOHrOOH>OOH>OOH>OOHiOOH 

0580' 

00 

00 

00 

00 




05C0' 





H5C5 



05C0' 

00 

00 

10 

20 


08 

0OH>OOHr1OHr20HrlOHfO8H>O1H»OOH 

05C1' 

10 

08 

01 

00 




05C8' 

00 

00 

00 

00 


08 

OOH»OOHfOOHyOOH»OOH»OOHfOOHfOOH 

05CC' 

00 

00 

00 

00 




05D0' 





H5D5 



05D0' 

00 

38 

08 

08 


08 

00H>38Hf08Hr08Hr08Hr08Hr08Ht38H 

05D1’ 

08 

08 

08 

38 




05D8' 

00 

00 

00 

00 


08 

OOH>OOH>OOHrOOHrOOH>OOHiOOH>OOH 

05DC' 

00 

00 

00 

00 




05E0' 





H5E; 



05E0' 

00 

10 

28 

11 


08 

OOHflOH»28Hr11HjOOHfOOH»OOH»OOH 

05E1' 

00 

00 

00 

00 




05E8' 

00 

00 

00 

00 


08 

OOH»OOH»OOH»OOHjOOH»OOHfOOHjOOH 

05EC' 

00 

00 

00 

00 




05F0' 





H5FJ 



05F0' 

00 

00 

00 

00 


08 

OOHrOOHrOOH>OOH>OOHfOOH>OOH>7CH 

05F1' 

00 

00 

00 

7C 




05F8' 

00 

00 

00 

00 


08 

OOHfOOHrOOH>OOH>OOHfOOH>OOHfOOH 

05FC' 

00 

00 

00 

00 




0600' 





H601 



0600' 

00 

oc 

11 

38 


08 

00Hr0CHrl1Hf38Hrl0H>10Hf61H>58H 

0601' 

10 

10 

61 

58 




0608' 

00 

00 

00 

00 


08 

OOH>OOH*OOH>OOHrOOH»OOH>OOH>OOH 

060C' 

00 

00 

00 

00 




0610' 





H6n 



0610' 

00 

00 

00 

31 


08 

00H.00Hr00H»31Hr1CHf11HTlCHf31H 

0611' 

1C 

11 

1C 

31 




0618' 

00 

00 

00 

00 


08 

OOHrOOHrOOHrOOH>OOH>OOH>OOHrOOH 

061C' 

00 

00 

00 

00 




0620' 





H62J 



0620' 

00 

10 

10 

58 


08 

00Hf10H»10H»58Hj61Hf11H»61H»58H 

0621' 

61 

11 

61 

58 




0628’ 

00 

00 

00 

00 


08 

OOH>OOH>OOHrOOH>OOHrOOHfOOH>OOH 

062C' 

00 

00 

00 

00 
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0630' 





H631 



0630’ 

00 

00 

00 

3C 


D8 

OOHfOOHjOOHf3CH»40Hf40H»40Hj3CH 

0634' 

40 

40 

40 

3C 




0638' 

00 

00 

00 

00 


D8 

OOHjOOHfOOH>OOH»OOHrOOH»OOHfOOH 

063C' 

00 

00 

00 

00 




0640' 





H645 



0640' 

00 

04 

04 

34 


DB 

00Hf04H»04H>34H»4CHf44Hf4CH»34H 

0644' 

4C 

44 

4C 

34 




0648' 

00 

00 

00 

00 


08 

OOH,OOH j OOH > OOHiOOH j OOH»OOH»OOH 

064C' 

00 

00 

00 

00 




0650' 





H65t 



0650’ 

00 

‘00 

00 

38 


08 

OOH»OOH>OOH»38H»44H»7CH»40Hf3CH 

0654' 

44 

7C 

40 

3C 




0658' 

00 

00 

00 

00 


08 

OOHjOOH»OOHfOOH»OOH»OOH»OOHjOOH 

065C' 

00 

00 

00 

00 




0660' 





H66: 



0660' 

00 

OC 

10 

10 


08 

OOHjOCHjlOH!lOH»38HflOHflOHflOH 

0664' 

38 

10 

10 

10 




0668' 

00 

00 

00 

00 


08 

OOHfOOH>OOH»OOH»OOH»OOHfOOHfOOH 

066C' 

00 

00 

00 

00 




0670’ 





H67? 



0670’ 

00 

00 

00 

34 


08 

00H,00Hf00Hf34Hr4CH»44H>3CHf04H 

0674' 

4C 

44 

3C 

04 




0678' 

38 

00 

00 

00 


08 

38H>00H>00H>00Hr00H>00H>00Hf00H 

067C' 

00 

00 

00 

00 




0680' 





H68t 



0680' 

00 

40 

40 

78 


08 

00Hj40Hj40Hy78Ht44Hr44H»44Hj44H 

0684' 

44 

44 

44 

44 




0688' 

00 

00 

00 

00 


08 

OOHjOOH»OOH»OOH»OOH?OOH»OOHjOOH 

068C' 

00 

00 

00 

00 




0690’ 





H69I 



0690' 

00 

00 

10 

00 


08 

00H>00Hyl0Hr00Hy30Hfl0H»10Hj38H 

0694' 

30 

10 

10 

38 




0698' 

00 

00 

00 

00 


08 

OOH»OOHyOOHyOOH»OOHyOOHyOOH»OOH 

069C’ 

00 

00 

00 

00 




06A0' 





H6A: 



06A0' 

00 

00 

08 

00 


08 

0OHy00Hy08HyOOHyO8H>O8Hy08Hy08H 

06A4' 

08 

08 

08 

08 




06A8' 

30 

00 

00 

00 


08 

30Hf00Hy00Hf00H»00Hy00Hy00Hy00H 

06AC' 

00 

00 

00 

00 




0680' 





H6B: 



0680' 

00 

40 

40 

48 


08 

OOHf40Hf40H»48H>50Hy70Hf48H»44H 

0684' 

50 

70 

48 

44 




0688' 

00 

00 

00 

00 


08 

OOHyOOH>OOH>OOHyOOH>OOHyOOHfOOH 

06BC' 

00 

00 

00 

00 




06C0' 





H6Ct 



06C0' 

00 

30 

10 

10 


08 

OOHf 30Hy lOHf 10H» lOHf lOHy 10Hy38H 

06C4' 

10 

10 

10 

38 




06C8' 

00 

00 

00 

00 


08 

OOH»OOHyOOHyOOHfOOHyOOHfOOH»OOH 

06CC’ 

00 

00 

00 

00 




06D0’ 





H6D{ 



0600' 

00 

00 

00 

68 


08 

00Hf00Hf00Hi68Hf54HT54H»54H!54H 

06D4' 

54 

54 

54 

54 




06D8' 

00 

00 

00 

00 


08 

OOHiOOHyOOHyOOHyOOHyOOHyOOHyOOH 

06DC' 

00 

00 

00 

00 




06E0' 





H6E5 
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06E0' 

00 

00 

00 

78 


06E1' 

11 

11 

11 

11 


06E8' 

00 

00 

00 

00 


06EC’ 

00 

00 

00 

00 


06F0' 





H6F5 

06F0' 

00 

00 

00 

38 


06F1' 

11 

11 

11 

38 


06F8' 

00 

00 

00 

00 


06FC' 

00 

00 

00 

00 


0700’ 





H7o: 

0700* 

00 

00 

00 

58 


0701' 

61 

11 

78 

10 


0708' 

10 

00 

00 

00 


070C' 

00 

00 

00 

00 


0710' 





H7i; 

0710' 

00 

00 

00 

31 


0711' 

1C 

11 

3C 

01 


0718' 

01 

00 

00 

00 


071C' 

00 

00 

00 

00 


0720' 





H72: 

0720' 

00 

00 

00 

5C 


0721' 

60 

10 

10 

10 


0728' 

00 

00 

00 

00 


072C' 

00 

00 

00 

00 


0730' 





H735 

0730' 

00 

00 

00 

3C 


0731' 

10 

38 

01 

78 


0738' 

00 

00 

00 

00 


073C' 

00 

00 

00 

00 


0710' 





H7i: 

0710' 

00 

10 

10 

38 


0711' 

10 

10 

10 

08 


0718' 

00 

00 

00 

00 


071C' 

00 

00 

00 

00 


0750' 





H75; 

0750' 

00 

00 

00 

11 


0751' 

11 

11 

11 

3C 


0758' 

00 

00 

00 

00 


075C' 

00 

00 

00 

00 


0760' 





H76; 

0760' 

00 

00 

00 

11 


0761' 

11 

28 

28 

10 


0768' 

00 

00 

00 

00 


076C' 

00 

00 

00 

00 


0770' 





H77} 

0770' 

00 

00 

00 

11 


0771' 

11 

51 

51 

28 


0778' 

00 

00 

00 

00 


077C' 

00 

00 

00 

00 


0780' 





H78J 

0780' 

00 

00 

00 

11 


0781' 

28 

10 

28 

11 


0788' 

00 

00 

00 

00 


078C' 

00 

00 

00 

00 


0790' 





H79; 

0790' 

00 

00 

00 

11 



DB 00Hj00H»00H»78Ht11H»11H»11H»11H 

DB OOH>OOH>ODH>OOH>OOHfOOH>OOHiOOH 

OB 00H»00H>00H.38Hr11H»11H»11HT38H 

DB OOH»OOH»OOH»OOH>OOH»OOHfOOHfOOH 

DB 00H»00Hf00Hr58H»61Hf11Hf?8Hr10H 

DB 10HrOOH>OOH?OOH>OOH>OOH>OOHfOOH 

DB 0OHfOOHfOOHf31Hf1CHj11Hj3CHjO1H 

DB 01H»OOH»OOHfOOHfOOHjOOHjOOH»OOH 

DB 0OH..OOHtOOHr5CHr6OHj1OHr1OHf1OH 

DB OOH»OOHfOOH»OOH»OOH»OOH»OOHfOOH 

DB 00Hr00H»00Hr3CHr10H!38Hr01Hr78K 

DB OOHjOOH»OOH»OOH»OOHjOOHjOOH»OOH 

DB OOHt lOHf10H>38HflOHr10H>10H>08H 

DB OOH>OOH>OOHrOOH*OOH>OOH>OOH>OOH 

DB OOH!OOHjOOHf11Hf11H>11Hf11Hf3CH 

DB OOH>OOHrOOH>OOH>OOHrOOH>OOHrOOH 

DB OOH»OOHfOOHj11Hf11Hr28H»28HflOH 

OB OOHfOOH»OOH»OOHjOOHfOOH»OOHfOOH 

DB 00Hf00H»00Hj11H»11H»51H.51Hr28H 

DB OOH>OOH>OOH>OOH*OOH*OOHrOOH>ODH 

DB 00Hr00Hf00Hf11Hr28Hjl0Hf28Hf11H 

DB OOH>OOK>OOH>OOH*OOH»OOH>OOHrOOH 


DB 


00Hf00Hf00H»11Hj11H»11H»3CHf01H 



0791' 

11 

11 

3C 

01 



0798' 

38 

00 

00 

00 


DB 

079C' 

00 

00 

00 

00 



07A0' 





H7A5 


07A0' 

00 

00 

00 

7C 


D8 

07 A1' 

08 

10 

20 

7C 



07A8' 

00 

00 

00 

00 


08 

07AC' 

00 

00 

00 

00 



07B0' 





H78J 


0780' 

00 

18 

20 

20 


08 

0781' 

10 

20 

20 

18 



0788' 

00 

00 

00 

00 


08 

078C' 

00 

00 

00 

00 



07C0' 





H7CJ 


07C0' 

00 

10 

10 

10 


08 

07C1' 

00 

10 

10 

10 



07C8' 

00 

00 

00 

00 


08 

07CC' 

00 

00 

00 

00 



07D0' 





H7Dt 


07D0' 

00 

30 

08 

08 


08 

07D1' 

01 

08 

08 

30 



07D8' 

00 

00 

00 

00 


08 

07DC' 

00 

00 

00 

00 



07E0' 





H7EJ 


07E0' 

00 

31 

58 

00 


08 

07Er 

00 

00 

00 

00 



07E8' 

00 

00 

00 

00 


08 

07EC' 

00 

00 

00 

00 



07F0' 





H7F{ 


07F0‘ 

FF 

FF 

FF 

FF 


08 

07F1' 

FF 

FF 

FF 

FF 



07F8’ 

FF 

FF 

FF 

FF 


08 

07FC' 

FF 

FF 

FF 

FF 




38H>00H>00Hf00Hf00Hf00Hf00H>00H 

00Hj00Hf00H>7CH»08Hjl0Hf20H»7CH 

OOH>OOH>OOH>OOH>OOH»OOH>OOH>OOH 

00Hrl8Hr2DH>20Hr40Hf20Hf20Hil8H 

OOHrOOH>OOHfOOHrOOH>OOH>OOH>OOH 

00H>10HrlDH>10H»00H»10H>10H>10H 

OOH*OOHrOOHrOOHrOOHrODH>OOH>OOH 

O0Hr3OH>O8HrO8H>D^HrO8H>O8Hr3OH 

OOH>DOH>OOH>OOH>QOHrOOH>OOHrOOH 

D0Hf3^H>58Hr00H>00H>00Hr00Hr00H 

OOH>OOH>OOH>OOHrOOHfOOHrOOH>OOH 

OFFH»OFFHrOFFH»OFFHfOFFH»OFFH»OFFH»OFFH 

OFFH>OFFHrOFFHfOFFH>OFFHiOFFHfOFFH»OFFH 
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HacrosJ 

Symbolst 
0000' HOO 
0030' H03 

0060' H06 

0090' H09 

OOCO' HOC 
OOFO' HOF 
0120’ H12 

0150' H15 

0180' H18 

0180' HIB 
OlEO' HIE 
0210' H21 

0210’ H21 

0270' H27 

02A0' H2A 
02D0’ H20 

0300' H30 

0330' H33 

0360' H36 

0390' H39 

03C0' H3C 
03F0' H3F 
0120' H12 

0150' H15 

0180' H18 

0180’ HIB 
01E0' HIE 
0510' H51 

0510' H51 

0570' H57 

05A0' H5A 
0500' H50 

0600' H60 

0630' H63 

0660' H66 

0690' H69 

06C0' H6C 
06F0' H6F 
0720' H72 

0750' H75 

0780’ H78 

0780' H7B 
07E0' H7E 


0010’ 

HOI 

0010’ 

HOI 

0070' 

H07 

OOAO' 

HOA 

OODO' 

HOD 

0100' 

HIO 

0130' 

H13 

0160' 

H16 

0190* 

H19 

OICO' 

HlC 

OlFO' 

HIF 

0220' 

H22 

0250' 

H25 

0280’ 

H28 

0280' 

H28 

02E0' 

H2E 

0310' 

H31 

0310' 

H31 

0370' 

H37 

03A0' 

H3A 

03D0' 

H3D 

0100' 

HIO 

0130' 

H13 

0160' 

H16 

0190' 

H19 

OICO' 

H1C 

01F0' 

HIF 

0520' 

H52 

0550' 

H55 

0580' 

H58 

0580' 

H58 

05E0' 

H5E 

0610' 

H61 

0610' 

H61 

0670' 

H67 

06A0' 

H6A 

06D0' 

H6D 

0700’ 

H70 

0730' 

H73 

0760' 

H76 

0790’ 

H79 

07C0' 

H7C 

07F0‘ 

H7F 


0020' H02 
0050' H05 
0080' H08 
0080' HOB 
OOEO’ HOE 
0110' Hll 
0110' Hll 
0170' H17 
01AO' HIA 
OIDO' HID 
0200’ H20 
0230' H23 
0260' H26 
0290' H29 
02C0' H2C 
02F0' H2F 
0320’ H32 
0350' H35 
0380' H38 
0380' H38 
03E0' H3E 
0110' Hll 
0110' Hll 
0170' H17 
01A0' HIA 
OIDO' HID 
0500' H50 
0530’ H53 
0560' H56 
0590' H59 
05C0' H5C 
05F0' H5F 
0620' H62 
0650' H65 
0680' H68 
06B0' H6B 
06E0’ H6E 
0710' H71 
0710' H71 
0770' H77 
07A0' H7A 
0700' H7D 




No Fatal error(s) 



D. Bootstrap ROM Listing 
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BOOTSTRAP PROM FOR PIED PIPER COMMUNICATOR I 


COPYRIGHT SEMI-TECH MICROELECTRONICS CORPORATION 


THE BOOT PROM PERFORMS THE FOLLOWING 

1. HARDWARE INITIALIZATION 

2. START UP DIAGNOSTICS 

3. SOFTWARE INITIALIZATION 

4. READ IN BOOT SECTOR FROM DISK 

5. PASS CONTROL TO BOOT PROGRAM 


THE FOLLOWING EQUATES MUST BE VERIFIED FOR PRODUCTION 


CMDREG - COMMAND REGISTER 

STAREG - STATUS REGISTER 

VTCBAS - PVTC BASE ADDRESS 

VTIDAT - PVTC INPUT BUFFER 

VTODAT - PVTC OUTPUT BUFFER 

VTCMOD - PVTC NODE REGISTER 

VTMODE - PVTC MODE 

KEYBD - KEYBOARD BASE ADDRESS 

CAPREG - CAPITAL LOCK STATUS REGISTER 

CAPLCK - CAPITAL LOCK BIT 

PROMST - PROM PROGRAM ORIGIN 

RONSAD - UPPER HALF OF ROM START ADDRESS 

ITRVEC - INTERRUPT VECTOR HIGH BYTE 

PROMAD - ADDRESS OF LOWER HALF OF ROM TO MOVE TO 

MIBEG - START ADDRESS OF UPPER MEMORY TEST 

MISIZE - SIZE OF UPPER MEMORY TEST 

N2BEG - START ADDRESS OF LOWER MEMORY TEST 

H2SIZE - SIZE OF LOWER MEMORY TEST 

MENEND - END OF MEMORY 

lOREGl - STATUS REGISTER 

FDBASE - FLOPPY DISK CONTROLLER BASE ADDRESS 


WHDBAS - HARD DISK CONTROLLER BASE ADDRESS 


SPECIAL CHANGES MADE FOR PP TESTING CAN BE FOUND BY SEARCHING 
FOR THE PATTERN 'VV 




GENERAL EQUATES 


OOOD 

> 

CR 

EQU 

OOOA 

LF 

EQU 

0008 

BS 

EQU 

0020 

BLANK 

EQU 

0002 

CNTLB 

EQU 

0029 

DISPON 

EQU 

0034 

MEMTST 

EQU 

002A 

DSKTST 

EQU 


ODH ; CARRIAGE RETURN 

OAH ; LINE FEED 

OSH 

20H ; BLANK 

02H f RETRY BOOT 

Z9H i DISPLAY ALL MESSAGE - FUNC-S 

34H } MEMORY TEST - FUNC-M 

ZAH } DISK TEST - FUNC-D 
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0000 

PVTCRO 

EQU 

OOH 

A 

f 

VIDEO RAM READ BANK 0 - FUNC-1 

0001 

PVTCHO 

EQU 

OlH 

4 

i 

VIDEO RAM WRITE BANK 0 - FUNC-2 

0009 

PMTCRl 

EQU 

09H 

4 

f 

VIDEO RAM READ BANK 1 - FUNC-3 

OOOA 

PMTCMl 

EQU 

OAH 

4 

f 

VIDEO RAM WRITE BANK 1 - FUNC-1 

0002 

RAKRD 

EQU 

02H 

4 

i 

MEMORY READ - FUNC-5 

0003 

RAHHR 

EQU 

OSH 

4 

f 

MEMORY WRITE - FUNC-6 

00A5 

TSTPAT 

4 

EQU 

0A5H 

4 

f 

TEST PATTERN FOR MEMORY TEST 


f 

J 

4 

GENERAL REGISTERS 



0018 

CHDREG 

EQU 

18H 

4 

f 

COMMAND REGISTER (WRITE ONLY) 




i BIT 7 

= 

1 - DISABLE KEYBOARD SCAN 




J BIT 6 

= 

1 - ENABLE HARD DISK INTERRUPT 




> BIT 5 

s 

1 - ENABLE TIMER INTERRUPT 




i BIT 1 

r 

1 - ENABLE KEYBOARD INTERRUPT 




i BIT 3 

= 

PRINTER DATA STROBE 




5 BIT 2 

= 

FLOPPY DISK SIDE SELECT 




f BIT 1 

= 

SELECT FLOPPY DISK DRIVE B 




» BIT 0 

= 

SELECT FLOPPY DISK DRIVE A 

0005 

TIMER 

EQU 

5 » TIMER ENABLE BIT 

0018 

STAREG 

EQU 

18H 

4 

i 

STATUS REGISTER (READ ONLY) 




f BIT 7 

= 

KEYBOARD SCANNER STATUS 




i BIT 6 

= 

FLOPPY DISK INDEX 




f BIT 5 

= 

1 - PRINTER BUSY 




A 

t 

= 

0 - PRINTER READY 




i BIT 1 

= 

0 CAPITAL LOCK 




» BIT 3-1 

= INTERRUPT 




4 

f 

=: 

0 - DISK DATA REQUEST 




4 

> 

= 

1 - DISK INTERRUPT REQUEST 





= 

2 - PVTC INTERRUPT REQUEST 




4 

t 

= 

3 - KEYBOARD INTERRUPT REQUEST 




4 

t 

= 

1 - TIMER INTERRUPT REQUEST 




4 

f 

= 

5 - EXPANSION J8 




4 

f 

= 

6 - EXPANSION J7 




4 

i 

= 

7 - J1 




i BIT 0 

= 

1 - INTERRUPT PENDING 


f 

4 

f 

4 

PVTC REGISTERS 



0000 

f 

VTCBAS 

EQU 

OOH 

A 

f 

VTC BASE ADDRESS 

0000 

MTCINI 

EQU 

VTCBAS+0 

A 

t 

INITIALIZATION REGISTER 

0001 

VTCSTA 

EQU 

VTCBAS+1 

f 

STATUS REGISTER 

0001 

VTCCHD 

EQU 

MTCBAS+1 

A 

f 

COMMAND REGISTER 

0002 

MTCSCl 

EQU 

VTCBAS+2 

4 

> 

SCREEN START REGISTER 1 

0003 

MTCSC2 

EQU 

UTCBAS+3 

4 

t 

SCREEN START REGISTER 2 

0001 

OTCCUl 

EQU 

MTCBAS+1 

4 

f 

CURSOR REGISTER 1 

0005 

MTCCU2 

EQU 

VTCBAS+5 

4 

f 

CURSOR REGISTER 2 

0006 

VTCPTl 

EQU 

MTCBAS+6 

4 

f 

POINTER REGISTER 1 

0007 

VTCPT2 

EQU 

MTCBAS+7 

i 

POINTER REGISTER 2 

OOOD 

MTIDAT 

EQU 

VTCBAS+ODH 

4 

INPUT DATA REGISTER 

OOlC 

VTODAT 

EQU 

MTCBAS+ICH 

♦ 

OUTPUT DATA REGISTER 

OOID 

VTCHOD 

* 

EQU 

VTCBAS+IDH 

f 

MODE REGISTER 


t 

« 

f 

A 

PMTC COMMANDS 



0000 

f 

VTCRST 

EQU 

OOOOOOOOB 

i 

VTC RESET 






OOAB 

NRINC 

EQU 

lOlOlOllB 

f URITE AT CURSOR AND INCREKENT 

OOAA 

URCUR 

EQU 

lOlOlOlOB 

5 WRITE AT CURSOR 

OOBB 

HRCP 

EQU 

lOlllOllB 

» WRITE FROH CURSOR TO PRINTER 

OOAC 

RDCUR 

EQU 

lOlOllOOB 

i READ AT CURSOR 

OOAD 

RDINC 

EQU 

lOlOllOlB 

f READ AT CURSOR AND INCREHENT 

003D 

ONDICU 

EQU 

OOllllOlB 

i DISPLAY ON 

0028 

OFFDIS 

EQU 

OOlOlOOOB 

; DISPLAY OFF 

0031 

CURON 

EQU 

OOllOOOlB 

i CURSOR ON 

0030 

CUROFF 

EQU 

OOllOOOOB 

; CURSOR OFF 

0020 

VTCRDY 

EQU 

OOlOOOOOB 

5 MTC READY HASK 

0010 

OBLANK 

EQU 

OOOIOOOOB 

> MTC MBLANK HASK 

0008 

LINZER 

EQU 

OOOOIOOOB 

f MTC LINE ZERO HASK 

0004 

SPLITS 

EQU 

OOOOOIOOB 

5 MTC SPLIT SCREEN HASK 

0080 

VTCBEG 

EQU 

0080H 

f MTC START ADDRESS 

07FF 

VTCEND 

EQU 

07FFH 

f MTC END ADDRESS 

0050 

RSTVBL 

EQU 

OlOlOOOOB 

f RESET MBLANK 

0048 

RSTLNO 

EQU 

OlOOlOOOB 

i RESET LINE ZERO 

0004 

MBIT 

EQU 

4 ? MBLANK BIT 

0003 

LINEO 

EQU 

3 5 LINE ZERO BIT 

0018 

INTHSK 

EQU 

18H 

i INTERRUPT STATUS HASK 

0040 

RSTHSK 

EQU 

40H 

; RESET COHHAND 

0001 

C0L40 

EQU 

OOOOOOOIB 

; 40 COLUHN 

0002 

REMVID 

EQU 

OOOOOOlOB 

? REMERSE MIDEO 

0004 

INTERS 

EQU 

OOOOOIOOB 

J HIGH LIGHT 

0008 

CHAR2K 

EQU 

OOOOIOOOB 

} REDUCE CHARACTER SET 

0010 

INTERL 

EQU 

OOOIOOOOB 

J INTERLACE 

0020 

BONN 

EQU 

OOlOOOOOB 

» BLACK ON WHITE 

0040 

D0T7 

EQU 

OlOOOOOOB 

i 7 DOTS HORIZONTAL 

0080 

BEEP 

EQU 

lOOOOOOOB 

5 ACTIMATE BEEP 

0054 

MTHODE 

4 

EQU 

INTERL+INTENS+D0T7 


i 

4 

t 

4 

PMTC INITIALIZATION REGISTERS 

0044 

f 

IRO 

EQU 

OlOOOlOOB 


0032 

IRl 

EQU 

OOllOOlOB 


OOOE 

IR2 

EQU 

OOOOlllOB 


0066 

IR3 

EQU 

OllOOllOB 


0017 

IR4 

EQU 

OOOlOlllB 


004F 

IR5 

EQU 

OlOOllllB 


0008 

IR6 

EQU 

OOOOIOOOB 


0009 

IR7 

EQU 

OOOOIOOIB 


0080 

IRS 

EQU 

lOOOOOOOB 


0010 

IR9 

EQU 

OOOIOOOOB 


0080 

IRIO 

4 

EQU 

lOOOOOOOB 



f 

4 

* 

4 

PMTC CONSTANTS 


0050 

> 

HAXCOL 

EQU 

80 


0017 

HAXLIN 

EQU 

23 


0000 

SCRLOF 

EQU 

0 ; SCROLL OFF 

0001 

SCRLON 

EQU 

1 ; SCROLL ON 


f 

i 

KEYBOARD 


0008 

J 

KEYED 

EQU 

OSH 

: BASE ADDRESS 

0008 

KEYBDA 

EQU 

KEYBD+O 

J DATA REGISTER 
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0009 

KEYBST 

EQU 

KEYBD+1 

f STATUS REGISTER 

0009 

KEYBCH 

EQU 

KEYBD+1 

i COHHAND REGISTER 

OOOF 

KEYBHK 

EQU 

OOOOllllB 

i KEYBOARD STATUS HASK 

0000 

KBHODl 

EQU 

OOOOOOOOB 

J ENCODED SCANr 2-KEY LOCKOUT 

002A 

KBH0D2 

EQU 

OOlOlOlOB 

* PROGRAH CLOCK FOR 20 HSEC INTERVAL 

003F 

KEYMSK 

EQU 

OOllllllB 

t CONTROL AND SHIFT BITS HASK 

0006 

SHIFT 

EQU 

6 i 

SHIFT KEY DEPRESSED BIT 

0007 

CNTL 

EQU 

7 f 

CONTROL KEY DEPRESSED BIT 

0007 

KBDENA 

EQU 

7 i 

KEYBOARD SCAN ENABLE/DISABLE BIT 

0018 

CAPREG 

EQU 

STAREG 

f CAPITAL LOCK REGISTER 

0001 

CAPLCK 

EQU 

1 i 

CAPITAL LOCK BIT 

0005 

CAPBIT 

EQU 

5 ? 

UPPER CASE BIT 

0005 

PT05 

EQU 

5 » 

50 HSEC DELAY FOR AUTO REPEAT 

0050 

ONESEC 

EQU 

80 ; 

800 HSEC DELAY FOR REPEAT 


? 

J 

PROGRAH 

ADDRESSES 


0000 

f 

PROHST 

EQU 

OOH 


OOFB 

ITRMEC 

EQU 

OFBH 

; INTERRUPT VECTOR HIGH BYTE 

F1A0 

ROMSAD 

EQU 

0F1A0H 

; ADDRESS OF UPPER AREA OF PROH 

FOOO 

PROHAO 

EQU 

OFOOOH 

i ADDRESS TO HOVE PROH TO 

1000 

ROHSIZ 

EQU 

lOOOH 

; SIZE OF PROH 

8000 

HIBEG 

EQU 

8000H 

t START ADDRESS FOR UPPER HEHORY TEST 

FFFF 

H3BEG 

EQU 

OFFFFH 

> START ADDRESS FOR HEHORY LOOP TEST 

8000 

MISIZE 

EQU 

8000H 

J UPPER HEHORY TEST SIZE 

0000 

H2BEG 

EQU 

PROHST 

} START ADDRESS FOR LONER HEHORY TEST 

EFFF 

HIBEG 

EQU 

OEFFFH 

} START ADDRESS FOR HEHORY LOOP TEST 

FOOO 

H2SIZE 

EQU 

OFOOOH 

f LONER HEHORY TEST SIZE 

FFFF 

HEHEND 

EQU 

OFFFFH 

i END OF HEHORY 


} 

? 

FLOPPY 

DISK CONSTATNS 

0018 

f 

SEL 

EQU 

CHDREG 

f DISK SELECT PORT 

0010 

FDBASE 

EQU 

lOH 

t FLOPPY DISK CONTROLLER BASE ADDRESS 

0010 

FDCHD 

EQU 

FDBASE+0 

; FLOPPY DISK CONTROLLER COHHAND REGISTER 

0010 

FDSTAT 

EQU 

FDBASE+0 

} FLOPPY DISK CONTROLLER STATUS REGISTER 

0011 

FDTRK 

EQU 

FDBASE+1 

} FLOPPY DISK CONTROLLER TRACK REGISTER 

0012 

FDSEC 

EQU 

FDBASE+2 

} FLOPPY DISK CONTROLLER SECTOR REGISTER 

0013 

FDOATA 

A 

EQU 

FDBASE+3 

} FLOPPY DISK CONTROLLER DTA REGISTER 

0000 

t 

RSCHD 

EQU 

OOOOOOOOB 

1 FLOPPY DISK RESTORE COHHAND 

0008 

HDLOAD 

EQU 

OOOOIOOOB 

i FLOPPY DISK HEAD LOAD BIT 

0082 

RDCHD 

EQU 

lOOOOOlOB 

* FLOPPY DISK READ SECTOR COHHAND 

OOCO 

RACHD 

EQU 

IIOOOOOOB 

; FLOPPY DISK READ ADDRESS COHHAND 

0001 

MERIFY 

EQU 

OOOOOIOOB 

t FLOPPY DISK COHHAND VERIFY BIT 

0010 

SKCHD 

EQU 

OOOIOOOOB 

* floppy disk seek coetand 

0050 

SICHD 

EQU 

OlOlOOOOB 

> floppy disk step in coeeand 

00A2 

HRCHD 

EQU 

lOlOOOlOB 

» floppy disk write sector couand 

OODO 

FITRPT 

EQU 

IIOIOOOOB 

; FLOPPY DISK FORCE INTERRUPT COHHAND 

0003 

SLOSTP 

EQU 

OOOOOOllB 

J SLON STEPPING RATE 

5511 

SPDLB 

EQU 

21777 

? FLOPPY DISK DRIVE SPEED LONER BOUND 

588A 

SPDUB 

EQU 

22666 

; FLOPPY DISK DRIVE SPEED UPPER BOUND 

8000 

i 

MFYBUF 

EQU 

8000H 

} DISK TEST BUFFER 

0080 

BUF 

EQU 

80H 

5 DEFAULT BUFFER ADDRESS 

0001 

DSKA 

EQU 

1 ; 

DISK DRIVE INDICATOR 



0007 


SELMSK 

EQU 

OOOOOlllB 

i DISK SELECT MASK 





J BIT 

0-1 DRIVE NUMBER 





; BIT 

2 SIDE 

00F8 


lOHSK 

EQU 

lllllOOOB 

f I/O REGISTER MASK FOR DISK SELE( 

0003 


DSK 

EQU 

OOOOOOllB 

» DISK DRIVE MASK 





; BIT 

0 - DRIVE A 





f BIT 

1 - DRIVE B 

0010 


SKERR 

EQU 

OOOIOOOOB 

} seek error status sask 

0010 


RNF 

EQU 

OOOIOOOOB 

> record not found status task 

0020 


HLD 

EQU 

OOlOOOOOB 


0098 


RSERR 

EQU 

lOOllOOOB 

; RESTORE ERROR MASK 

009E 


RDERR 

EQU 

lOOllllOB 

J FLOPPY DISK READ ERROR MASK 

0080 


TIHEXP 

EQU 

lOOOOOOOB 

; TIMED OUT ERROR 

0007 


EXPTIH 

EQU 

7 ? TIMED OUT BIT 

0002 


SIDEl 

EQU 

2 ; FLOPPY DISK SIDE SELECT BIT 

0005 


DSIDE 

EQU 

5 * FLOPPY DISK SELECT BYTE SIDE INFO BIT 

0000 


f 

DSSTEP 

EQU 

0 5 STEPPING RATE FOR DS FLOPPY 

OOOA 


RETRY 

EQU 

10 ; MAXIMUM NUMBER OF RETRIES 

0005 


URCHND 

EQU 

5 ; FLOPPY COMMAND WRITE BIT 

A2ED 


INICOD 

EQU 

0A2EDH 

> INI INSTRUCTION 

A3ED 


OUTICD 

EQU 

0A3EDH 

} OUTI INSTRUCTION 

00C9 


RETCOD 

EQU 

0C9H 

1 RET INSTRUCTION 



f 

f 

HARD DISK CONSTANTS 


0030 


f 

HHDBAS 

EQU 

30H 

} CONTROLLER BASE ADDRESS 

0037 


HDCHD 

EQU 

HHDBAS+7 

? COMMAND REGISTER 

0037 


HDSTAT 

EQU 

HHDBAS+7 

; STATUS REGISTER 

0036 


HDSDH 

EQU 

HHDBAS+6 

? SECTOR SIZEf DRIVE» HEAD SELECT 

0035 


HDCYLH 

EQU 

HHDBAS+5 

1 CYLINDER HIGH BYTE 

0031 


HDCYLL 

EQU 

NHDBAS+1 

i CYLINDER LOW BYTE 

0033 


HDSEC 

EQU 

NHDBAS+3 

i SECTOR NUMBER 

0032 


HDCNT 

EQU 

HHDBAS+2 

; SECTOR COUNT 

0031 


HDMPC 

EQU 

HHDBAS+1 

f NRITE PRE-COMPENSATION 

0031 


HDERR 

EQU 

NHDBAS+1 

} ERROR REGISTER 

0030 


HDDATA 

EQU 

WHDBAS+0 

» DATA REGISTER 

0020 


f 

HDREAD 

EQU 

OOlOOOOOB 

i READ SECTOR COMMAND 

0000 


HDERRS 

EQU 

0 ? ERROR BIT 



f 

1 

ORG 

PROMST 




f 

f 

A 

HARDHliRE INITIALIZATION 

0000' 


f 

rohbeg: 




0000' 

F3 


DI 

? DISABLE INTERRUPT 

ooor 

18 25 


JR 

ITABEN 

1 HOP AROUND INITIALIZATION TABLE 



J 

A 

f 

A 

INITIALIZATION TABLE 


0003' 


i 

INITABl 




0003' 

25 


DB 

ITABEN - INITAB 

ooor 

18 00 


DB 

CMDREGrO 


0006' 

10 DO 


DB 

FDCMDfFITRPT 


0008' 

ID 51 


DB 

VTCMODfMTMODE 
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OOOA' 

01 00 

DB 

MTCCHDrVTCRST 


OOOC 

01 00 

DB 

UTCCNDrVTCRST 


OOOE' 

00 44 

DB 

VTCINIfIRO 


0010' 

00 32 

DB 

VTCINIiIRl 


0012' 

00 OE 

DB 

UTCINI»IR2 


0014' 

00 66 

DB 

OTCINIflRB 


0016' 

00 17 

DB 

VTCINMR4 


0018' 

00 4F 

DB 

VTCINI.IR5 


OOIA' 

00 08 

DB 

VTCINIfIR6 


OOIC 

00 09 

DB 

UTCINI>IR7 


OOIE' 

00 80 

DB 

VTCINIjIRS 


0020' 

00 10 

DB 

MTCINIfIR9 


0022' 

00 80 

DB 

VTCINIfIRlO 


0024' 

09 00 

DB 

KEYBCMjKBHODI 


0026' 

09 2A 

DB 

KEYBCN.KBH0D2 


0028' 


itaben: 



0028' 

21 0003' 

LD 

HL»IHITAB 

; POINT TO TABLE 

002B' 

46 

ID 

Bf(HL) 

i OBTAIN LOOP COUNTER 

002C' 

CB 38 

SRL 

B } DIVIDE BY THO 

002E' 


INILPlt 



002E' 

23 

INC 

HL 


002F' 

4E 

LD 

C»{HL) 

J GET PORT ADDRESS 

0030' 

23 

INC 

HL 


0031' 

7E 

LD 

A>{HL) 

i GET INITIALIZATION BYTE 

0032' 

ED 79 

OUT 

(C)>A 


0034' 

10 F8 

DJNZ 

INILPl 



t 


HARDWARE INITIALIZATION DONE 


START UP DIAGNOSTICS 
1. CPU TEST 


0036' 

AF 

XDR 

A ; 

GENERATE NCi Z» PE» P 

0037' 

ED 47 

LD 

I>A 

f INITIALIZE ERROR INDICATOR 

0039' 

DA 0071' 

JP 

CjCPUERR 

J TEST IF FLAGS SET PROPERLY 

003C' 

C2 0071' 

JP 

NZfCPUERR 


003F' 

E2 0071' 

JP 

POiCPUERR 


0042' 

FA 0071' 

JP 

MjCPUERR 


0045' 

D6 02 

SUB 

2 ; 

GENERATE Cj NZ» P0» H 

0047' 

02 0071' 

JP 

NCfCPUERR 

; TEST IF FLAGS SET PROPERLY 

004A' 

CA 0071' 

JP 

Z»CPUERR 


004D' 

EA 0071' 

JP 

PEfCPUERR 


0050' 

F2 0071' 

JP 

PtCPUERR 


0053' 

0055' 

3E FF 

LD 

NXTTSTJ 

AfOFFH 

? LOAD REGISTERS WITH PATTERN 

0055' 

47 

LD 

B^A 


0056' 

48 

LD 

C>B 


0057' 

51 

LD 

DjC 


0058' 

5A 

LD 

ErD 


0059' 

63 

LD 

H>E 


005A' 

6C 

LD 

LfH 


005B' 

08 

EX 

AFjAF’ 


005C' 

7D 

LD 

A>L 
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005D' 

D9 

EXX 



005E' 

17 

LD 

B>A 


005F' 

18 

LD 

C>8 


0060' 

51 

LD 

DrC 


0061' 

5A 

LD 

ErD 


0062' 

63 

LD 

H)E 


0063' 

6C 

LD 

L>H 


006^1' 

08 

EX 

AFfAF' 


0065' 

30 07 

JR 

NCfCPUTST 


0067' 

FE FF 

CP 

OFFH 


0069' 

20 06 

JR 

NZfCPUERR 


0068' 

AF 

XOR 

A f 

SET FOR SECOND PATTERN 

006C' 

18 E7 

JR 

NXTTST 


006E' 


CPUTSTt 



006E' 

87 

OR 

A 


006F' 

28 01 

JR 

ZfCPUEND 


0071' 


CPUERR*. 



0071' 

76 

HALT 

» 

CPU ERROR 

0072' 


CPUEND5 





f 

i 2. ROK 

CHECKSUH 


0072' 

21 01A0' 

t 

LD 

HLtLAST 

; COMPUTE SIZE OF LONER HALF OF CODE 

0075' 

01 0000 

LD 

BCfPROHST 


0078' 

ED 12 

SBC 

HL>8C 


007A' 

E8 

EX 

DEfHL 

} SAME FOR LATER 

0078' 

21 FF93' 

LD 

HLfCHKSUH 

t POINT TO CHECKSUM ADDRESS 

007E' 

01 F1A0 

LD 

BCfROHSAD 


0081' 

AF 

XOR 

A 


0082' 

ED 12 

SBC 

HLrBC 

; COMPUTE UPPER HALF ROM SIZE 

0081' 

19 

ADD 

HLfDE 


0085' 

11 

LD 

8rH 


0086' 

ID 

LD 

C»L 


0087' 

21 0000' 

LD 

HLrROHBEG 

} POINT TO START OF CODE 

008A' 


TSTLP15 



008A' 

AE 

XOR 

(HL) 

; COMPUTE CHECKSUM 

0088' 

5F 

LD 

EiA 

; SAVE FOR LATER 

008C' 

23 

INC 

HL i 

POINT TO NEXT BYTE 

008D' 

OB 

DEC 

8C } 

CHECK IF NO MORE 

008E' 

78 

LD 

A>8 


008F' 

81 

OR 

C 


0090' 

78 

LD 

ArE 

t RETRIEVE CHECKSUM 

0091' 

20 F7 

JR 

NZ»TSTLP1 


0093' 

8E 

CP 

(HL) 

? COMPARE NITH PRE-DETERMINED VALUE 

0091' 

20 DB 

JR 

A 

% 

NZjCPUERR 

} HALT IF PROM ERROR 


3. PMTC 


0096' 


PVTC! 




0096' 

3E 58 


LD 

AflNTMSK+RSTMSK 


0098' 

D3 01 


OUT 

{VTCCMD)rA 

J CHECK PVTC OPERATION 

009A' 

01 0000 


LD 

BCfO 

t DELAY LOOP 

009D' 


PVTCi; 




009D' 

10 FE 


DJNZ 

PVTCI 


009F' 

OD 


DEC 

C 


OOAO' 

20 FB 


JR 

NZfPVTCl 
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00A2' 

DB 01 

IN 

Af(MTCSTA) 

5 GET STATUS 

om' 

E6 38 

AND 

UTCROY+VBLANK+LINZER 

00ft6' 

EE 38 

XOR 

VTCRDY+MBLANK+LINZER 

00A8' 

20 24 

JR 

NZfPMTCER 

i ERROR IF NOT ALL SET 

OOAA' 

AF 

XOR 

A ? SET STARTING ADDRESS 

OOAB' 

03 04 

OUT 

(VTCCUl)fA 


OOAD' 

03 05 

OUT 

(0TCCU2)fA 


OOAF' 

21 07FF 

LD 

HLfUTCEND 

1 SET ENDING ADDRESS 

00B2' 

70 

LD 

AfL 

i SET ENDING ADDRESS 

00B3' 

03 06 

OUT 

(VTCPTl)fA 


0065’ 

7C 

LD 

A>H 


00B6' 

03 07 

OUT 

(VTCPT2)fA 


00B8' 

3E AS 

LD 

AfTSTPAT 

; SET UP TEST PATTERNS 

OOBA' 

5F 

LD 

E>A 


OOBB' 

2F 

CPL 



OOBC' 

57 

LD 

DrA 


OOBD' 

03 1C 

OUT 

(UTODAT)»A 

; LOAD UP TEST PATTERN 

OOBF' 

3E BB 

LO 

AfHRCP 


OOCl' 

03 01 

OUT 

(UTCCND)jA 


00C3' 


PUTC2J 



00C3' 

10 FE 

DJNZ 

PVTC2 

i SOFTWARE TIMER LOOP 

00C5' 

00 

DEC 

C 


00C6‘ 

20 FB 

JR 

NZjPMTCZ 


00C8' 

DB 01 

IN 

A.(VTCSTA) 

i GET STATUS 

OOCA' 

E6 20 

AND 

VTCRDY 

f CHECK IF READY 

OOCC 

20 09 

JR 

NZtHAITLO 

t OK IF SET 

OOCE' 


PUTCERl 



OOCE' 

ED 57 

LD 

hi 

; SET ERROR 

OODO' 

CB C7 

SET 

0>A 


00D2’ 

EO 47 

LD 

I>A 


00D4' 

C3 09B7' 

JP 

A 

INOBAD-ROHSAD+LAST-PROHST 



i 

f 3.1 

DISPLAY RAH 


00D7' 


f 

NAITLO! 



00D7' 

AF 

XOR 

A ; SET STARTING ADDRESS 

0008' 

03 04 

OUT 

(VTCCU1)»A 


OODA' 

03 05 

OUT 

<UTCCU2)fA 


OOOC 

01 07FF 

LO 

BCfVTCEND 

} SET LOOP COUNTER 

OODF' 

03 

INC 

BC 


OOEO- 


UTSTLP} 



OOEO' 

3E AC 

LD 

A>RDCUR 

; READ BACK FOR COMPARISON 

00E2' 

03 01 

OUT 

(VTCCHD)»A 


00E4' 

21 00E9' 

LO 

HLjHAITLI 


00E7' 

18 42 

JR 

VTCHAIT 


00E9' 


HAITLl! 



00E9' 

DB 00 

IN 

A»(MTIDAT) 


OOEB’ 

BA 

CP 

D 


OOEC 

20 22 

JR 

NZ»VTCERR 

* BRANCH IF ERROR 

OOEE' 

7B 

LD 

hE 

» GET NEXT PATTERN 

OOEF' 

03 1C 

OUT 

(VTODAT)fA 


OOFl* 

3E AA 

LD 

ArHRCUR 

} WRITE OUT 

00F3' 

03 01 

OUT 

(VTCCHD)jA 


OOFS' 

21 OOFA' 

LD 

HL»HAITL2 


OOFS' 

18 31 

JR 

MTCNAIT 


OOFA' 


MAITL2: 
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OOFA' 

3E AD 

LD 

AfRDINC 

; READ BACK AND COHPARE 

OOFC 

D3 01 

OUT 

(VTCCHD)fA 


OOFE' 

21 0103' 

LD 

HL»HAITL3 


0101 ' 

18 28 

JR 

MTCHAIT 


0103' 


HAITL35 



0103' 

D 8 OD 

IN 

Af(MTIDAT) 


0105' 

88 

CP 

E 


0106' 

20 08 

JR 

NZjVTCERR 


0108' 

08 

DEC 

8 C ; CHECK IF HORE TO CHECK 

0109' 

78 

LD 

A >8 


OlOA' 

81 

OR 

C 


0108' 

20 D3 

JR 

NZfcVTSTLP 


OlOD' 

87 

OR 

A > CHECK IF ERROR 

OlOE' 

28 22 

JR 

ZtMTCOK 


0110 ' 


VTCERRt 



0110 ' 

21 0080 

LD 

HLrVTC 8 EG 


0113' 

7D 

LD 

A>L 

i SET UP CURSOR 

0111 ' 

D3 01 

OUT 

(VTCCUDjA 


0116' 

7C 

LD 

A>H 


0117' 

D3 05 

OUT 

(VTCCU2).A 


0119' 

3E 3D 

LD 

AfONDICU 

» TURN ON DISPLAY 

0118' 

D3 01 

OUT 

(VTCCHD)fA 


OllD' 

21 0122 ' 

LD 

HL»VTCERH 


0120 ' 

18 09 

JR 

MTCHAIT 


0122 ' 


utcerh; 



0122 ' 

ED 57 

LD 

A>I 

5 GET ERROR INDICATOR 

0121 ' 

C 8 CF 

SET 

liA 

f SET PMTC ERROR BIT 

0126' 

ED 17 

LD 

IiA 

; SAME INDICATOR 

0128' 

C3 0987' 

JP 

INDBAD-ROHSAD+LAST-PROHST 

0128' 


VTCHAITJ 



0128' 

DB 01 

IN 

A»(MTCSTA) 

J GET STATUS REGISTER. 

012 D' 

E 6 20 

AND 

MTCRDY 

; CHECK IF READY 

012F' 

28 FA 

JR 

ZfMTCHAIT 

i REPEAT IF NOT 

0131' 

E9 

JP 

(HL) 

f SIMULATED RETURN 



> 

i SET UP 

PMTC FOR DISPLAY 


0132' 


t 

VTCOKJ 



0132' 

21 0080 

LD 

HL 1 MTC 8 EG 

i GET PMTC START ADDRESS 

0135' 

7D 

LD 

A>L 


0136* 

D3 01 

OUT 

(VTCCU1)»A 


0138' 

D3 02 

OUT 

(MTCSCDfA 


013A' 

7C 

LD 

A>H 


0138' 

D3 05 

OUT 

(MTCCU2)»A 


013D' 

D3 03 

OUT 

(VTCSC2)»A 


013F' 

11 07FF 

LD 

DEfMTCEND 

t GET PMTC END ADDRESS 

0112 ' 

78 

LD 

A)E 


0113' 

D3 06 

OUT 

(MTCPT1)»A 


0115' 

7A 

LD 

A>D 


0116' 

D3 07 

OUT 

(VTCPT2)rA 


0118' 

3E 20 

LD 

A> 8 LANK 

f BLANK OUT DISPLAY 

011A' 

D3 1C 

OUT 

(MTODAT)>A 


one 

3E 88 

LD 

A»HRCP 


011E' 

D3 01 

OUT 

(MTCCHD)>A 


0150' 

21 0155' 

LD 

HLrHAITLI 


0153' 

18 D 6 

JR 

MTCHAIT 
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0155' 


HAITL4J 


0155' 

7D 

LD 

A»L ; SET UP CURSOR 

0156' 

D3 04 

OUT 

(VTCCU1)»A 

0158' 

7C 

LD 

A>H 

013?' 

D3 05 

OUT 

(VTCCU2)»A 

015B' 

3E 3D 

LD 

A»ONDICU ; TURN ON DISPLAY 

015D' 

D3 01 

OUT 

(VTCCMD)rA 

015F' 

21 0164' 

LD 

HL.HAITL5 

0162' 

18 C7 

JR 

VTCNAIT 

0164' 


HAITL5J 


0164' 

DD 21 0308' 

LD 

IXfSIGNON i POINT TO SIGNON MESSAGE 

0168' 

FD 21 016F' 

LD 

IY»HAITL6 

016C' 

C3 02E2' 

JP 

PMSG 

016F' 


MAITL6J 

A 




f 

? CHECK IF DISPLAY REQUIRED 

? OR ANY TEST SHOULD BE ACTIVATED 

016F' 

01 0000 

t 

. LD 

BC,0 > SET UP SOFTWARE TIMER 

0172' 


NAITLS: 


0172' 

OP 09 

IN 

Af'KEYBST) 1 GET KEYBOARD STATUS 

0174' 

E6 OF 

AND 

KEYBHK t CHECK IF DATA AVAILABLE 

0176' 

20 08 

JR 

NZjKEYRDY 

0178' 

OB 

DEC 

BC ; CHECK IF TIMED OUT 

0179' 

78 

LD 

AjB 

017A' 

B1 

OR 

C 

017B' 

20 F5 

JR 

NZ»HAITL8 

017D' 

C3 0384' 

JP 

NODISP 

0180' 


keyrdy: 


0180' 

DB 08 

IN 

A»1KEYBDA) > GET KEY ENTERED 

0182' 

FE 29 

CP 

DISPON 5 CHECK IF DISPLAY REQUIRE 

0184' 

CA 037E' 

JP 

ZrSHON f 

0187' 

FE 34 

CP 

MEMTST > CHECK IF ACTIVATE MEMORY TEST 

0189' 

28 OB 

JR 

Z.TESTMl 

018B' 

FE 2A 

CP 

DSKTST 5 CHECK IF ACTIVATE DISK TEST 

018D’ 

C2 0384' 

JP 

NZrNODISP 

0190' 

ED 57 

LD 

A>I 

0192' 

CB DF 

SET 

3fA J SET INDICATOR FOR LATER 

0194' 

ED 47 

LD 

IiA 


TEST UPPER HEHORY FIRST 


DD 21 0319' 
FD 21 OlAl' 
C3 02E2' 


21 8000 
01 8000 


TESTM15 


TSTHEH5 


NXPAT31 


LDLP3} 


IX.THHSG 

lYJSTMEH 

PHSG 

AF,AF' 

A 

AF»AF' 

EfOlH 

HLfHlBEG 

BCfHlSIZE 


DISPLAY MEMORY TEST MESSAGE 


} SET FOR FORWARD DIRECTION 


t INITIALIZE TEST PATTERN 

; GET STARTING ADDRESS 
J SET UP LOOP COUNTER 


LD 


(HL)>E 


i LOAD PATTERN IN MEMORY 



01 AD' 

23 

INC 

HL i 

INCREHENT HEHORY INDEX 

01AE' 

OB 

DEC 

BC f 

REPEAT UNTIL ALL LOADED 

OlAF' 

78 

LD 

AfB 


OIBO' 

B1 

OR 

C 


OlBl' 

20 F9 

JR 

NZ»LDLP3 


01B3' 

3E 01 

LD 

AfOlH 

f SET TO FLASH DRIVE A LEO 

01B5' 

FD 21 OIBC 

LD 

IY.CHECK3 

} SET RETURN ADDRESS 

01B9' 

C3 0290' 

JP 

FLHLP 

i FLASH LED 

OIBC 


CHECK31 



OIBC 

21 FFFF 

LD 

HLfH3BEG 

t COMPUTE END ADDRESS 

OIBF’ 

01 8000 

LD 

BC.HISIZE 

» SET UP LOOP COUNTER 

OICZ' 


CHKLP31 



01C2' 

7B 

LD 

A>E 

i GET TEST PATTERN 

01C3' 

56 

LD 

D»(HL) 

} GET MEMORY CONTENT 

Old* 

BA 

CP 

D ! 

COMPARE HITH PATTERN 

01C5' 

20 65 

JR 

NZr«3ERR 


01C7' 

2F 

CPL 

A 

? 

COMPLEMENT PATTERN 

01C8' 

77 

LD 

(HL)fA 

J LOAD IN MEMORY 

01C9' 

56 

LD 

D»(HL) 


OICA' 

BA 

CP 

D ; 

AMD CHECK IMMEDIATELY 

OICB' 

20 5F 


NZ»H3ERR 


OICD' 


NXTAD3} 



OICD' 

2B 

DEC 

HL } 

DECREMENT MEMORY INDEX 

OICE' 

OB 

DEC 

BC > 

REPEAT UNTIL ALL CHECKED 

OICF' 

79 

LD 

ArC 


OIDO' 

BO 

OR 

B 


OlDl' 

20 EF 

JR 

NZ»CHKLP3 


01D3' 

3E 01 

LD 

AfOlH 

? SET TO FLASH DRIVE A LED 

01D5' 

FD 21 OlDC 

LD 

IY>NXADR3 


01D9’ 

C3 0290' 

JP 

FLHLP 


OlDC 


NXADR3; 



OlDC 

AF 

XOR 

A i 

CLEAR CARRY FLAG 

OIDD' 

CB 23 

SLA 

E i 

UPDATE PATTERN 

OIDF' 

30 C5 

JR 

NC»NXPAT3 


OlEl’ 

08 

EX 

AF»AF' 


01E2' 

3E 01 

LD 

A>1 

J SET FOR BACKWARD DIRECTION 

01E1' 

08 

EX 

AF»AF' 


01E5' 

IE 01 

LD 

ErOlH 

i INITIALIZE TEST PATTERN 

01E7' 


NXPAT5} 



01E7' 

21 FFFF 

LD 

HLrH3BEG 

} GET STARTING ADDRESS 

OlEA' 

01 8000 

LD 

BCfMlSIZE 

; SET UP LOOP COUNTER 

OlED' 


LDLP5! 



OlED' 

73 

LD 

(HL)fE 

f LOAD PATTERN IN MEMORY 

OlEE' 

2B 

DEC 

HL ; 

DECREMENT MEMORY INDEX 

OlEF' 

OB 

DEC 

BC ; 

REPEAT UNTIL ALL LOADED 

OlFO' 

78 

LD 

ArB 


OlFl' 

B1 

OR 

C 


01F2' 

20 F9 

JR 

NZ»LDLP5 


OlFr 

3E 01 

LD 

AfOlH 

} SET TO FLASH DRIVE A LED 

01F6' 

FD 21 OlFD' 

LD 

IY.CHECK5 

f SET RETURN ADDRESS 

OlFA' 

C3 029D' 

JP 

FLHLP 

» FLASH LED 

OlFO' 


CHECK51 



OlFD' 

21 8000 

LD 

HLrHlBEG 

? COMPUTE END ADDRESS 

0200' 

01 8000 

LD 

BCrHlSIZE 

? SET UP LOOP COUNTER 

0203' 


CHKLP5} 



0203' 

7B 

LD 

ArE 

f GET TEST PATTERN 
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0201' 

56 

LD 

0205' 

BA 

CP 

0206' 

20 21 

JR 

0208' 

2F 

CPL 

0209' 

77 

LD 

020A' 

56 

LD 

0206' 

BA 

CP 

020C' 

20 IE 

JR 

020E' 


NXTAD55 

020E' 

23 

INC 

020F' 

OB 

DEC 

0210' 

79 

LD 

0211' 

BO 

OR 

0212' 

20 EF 

JR 

0211' 

3E 01 

LD 

0216' 

FD 21 021D‘ 

LD 

021 A' 

C3 029D' 

JP 

021D' 


NXADR5! 

021D' 

AF 

XOR 

021E' 

CB 23 

SLA 

0220' 

30 C5 

JR 

0222' 

ED 57 

LD 

0221' 

CB 57 

BIT 

0226' 

CA 02B8' 

JP 

0229' 

C3 OlAl' 

JP 

022C' 


M3ERR5 

022C' 

ED 57 

LD 

022E' 

CB D7 

SET 

0230' 

ED 17 

LD 

0232' 

DD 21 032A' 

LD 

0236' 

FD 21 023D' 

LD 

023A' 

C3 02E2' 

JP 

023D' 


M3ERR1: 

023D' 

7C 

LD 

023E’ 

FD 21 0215' 

LD 

0212' 

C3 0116' 

JP 

0215' 


M3ERR3} 

0215' 

7D 

LD 

0216' 

FD 21 021D' 

LD 

021A' 

C3 0116' 

JP 

0Z1D' 


M3ERR1: 

021D' 

DD 21 0316' 

LD 

0251' 

FD 21 0258' 

LD 

0255' 

C3 02E2' 

JP 

0258' 


M3ERR51 

0258' 

7A 

LD 

0259' 

FD 21 0260' 

LD 

025D' 

C3 0116' 

JP 

0260' 


M3ERR6: 

0260' 

DD 21 0351' 

LD 

0261' 

FD 21 026B' 

LD 

0268' 

C3 02F0' 

JP 

026B' 


M3ERR75 

026B' 

7B 

LD 

026C' 

FD 21 0273' 

LD 

0270' 

C3 0116’ 

JP 


D»(HL) } GET HEHORY CONTENT 

D ; COMPARE HITH PATTERN 

NZfHSERR 

5 COMPLEMENT PATTERN 
(HL)>A i LOAD IN MEMORY 

D>(HL) 

D » AND CHECK IMMEDIATELY 

NZiH3ERR 

HL ; INCREMENT MEMORY INDEX 

BC ♦ REPEAT UNTIL ALL CHECKED 

A>C 
0 

NZfCHKLPS 

AiOlH ; SET TO FLASH DRIVE A LED 

lYfNXADRS 

FLHLP 

A 5 CLEAR CARRY FLAG 

E f UPDATE PATTERN 

NC»NXPAT5 
Afl 

2»A » CHECK IF ERROR IN UPPER MEMORY 

Z»M30K 

TSTMEM i REPEAT FOREVER 

Afl ; SET ERROR INDICATOR 

2rA 

ItA 

IXfMlHDG ; DISPLAY ERROR MESSAGE 

IY»H3ERR1 

PMSG 

AfH i DISPLAY MEMORY ADDRESS 

IY»M3ERR3 

B2H 

A>L 

IYfM3ERR1 

B2H 

IX. CONTENT i DISPLAY MEMORY CONTENT 

IY. M3ERR5 
PMSG 

A.D 

IYfM3ERR6 

B2H 

IX. PATTERN ; DISPLAY TEST PATTERN 

IY. M3ERR7 
PMSGLl 

A.E 

IY.M3ERR8 

B2H 
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0273' 


H3ERR8! 



0273' 

DO 21 0360' 

LD 

IXfPROHPT 


0277’ 

FD 21 027E' 

LD 

IY»H3ERR9 


027B' 

C3 02E2' 

JP 

PHSG 


027E' 


H3ERR91 



027E' 

3E 03 

LD 

A>03H 

f SET TO FLASH BOTH DRIVES LED 

0280' 

FD 21 0286' 

LD 

IYfH3ER10 


0281' 

13 17 

JR 

FLHLP 


0286' 


M3ER10; 



0286' 

DB 09 

IN 

Af(KEYBST) 

; CHECK IF ANY KEY PRESS 

0288' 

E6 OF 

AND 

KEYBMK 


028A' 

28 F2 

JR 

ZfH3ERR9 

5 REPEAT FLASHING LED 

028C' 

DB 08 

IN 

Af(KEYBDA) 

; CLEAR KEY 

028E' 

08 

EX 

AFfAF’ 


028F’ 

FD 21 OICD' 

LD 

IYfNXTAD3 

f SET RETURN ADDRESS FOR FORHARD TEST 

0293' 

B7 

OR 

A i CHECK IF GOING FORHARD OR BACKHARD 

0291' 

28 01 

JR 

ZjNXTFHD 


0296' 

FD 21 020E' 

LD 

lYrNXTADS 

i SET RETURN ADDRESS FOR BACKHARD TEST 

029A’ 


NXTFND5 



029A’ 

08 

EX 

AF»AF' 


029B' 

FD E9 

JP 

(lY) 

i GO TO NEXT LOCATION 



; FLASH DRIVE A LED 


029D' 


f 

FLHLPt 



029D' 

D9 

EXX 

* USE ALTERNATE REGISTER SET 

029E' 

67 

LD 

HrA 

» SAVE LEO INDICATION 

029F' 

2E 02 

LD 

Ifl 


02A1' 


FLHLlOt 



02A1' 

7C 

LD 

AfH 

} FLASH LED 

02A2' 

D3 18 

OUT 

(CHDREG)rA 


02A1' 


FLHLPll 



02A1' 

10 FE 

DJNZ 

FLHLPl 


02A6' 

OD 

DEC 

C 


02A7’ 

20 FB 

JR 

NZ.FLHLPl 


02A9' 

AF 

XOR 

A 


02AA' 

D3 18 

OUT 

(CHDREGlrA 


02AC' 


FLHLP2t 



02AC' 

10 FE 

DJNZ 

FLHLP2 


02AE' 

OD 

DEC 

C 


02AF' 

20 FE 

JR 

NZ»FLHLP2 


02B1' 

2D 

DEC 

L 


02B2' 

20 ED 

JR 

NZ»FLHL10 


02B1' 

09 

EXX 



02B5’ 

AF 

XOR 

A 


02B6’ 

FD E9 

JP 

(lY) 

f RETURN 



J HOVE CODE TO UPPER HEHORY 

4 

02B8’ 


h30k: 



02B8' 

21 01A0' 

LD 

HLfLAST 

; COHPUTE SIZE OF LOHER HALF OF CODE 

02BB' 

01 0000 

LD 

BCfPROHST 


02BE' 

AF 

XOR 

A 


02BF’ 

ED 12 

SBC 

HLfBC 


02C1' 

11 

LD 

B>H 


02C2' 

ID 

LD 

C»L 
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02C3' 

21 0000 

LD 

HLfPROHST 

; HOVE LONER HALF FIRST 

02C6' 

11 FOOO 

LD 

DEfPROHAD 


02C9' 

ED BO 

LDIR 



02CB' 

21 FFFF 

LD 

HLfHEHEND 

; COMPUTE SIZE OF UPPER HALF OF CODE 

02CE' 

23 

INC 

HL 


02CF' 

01 F1A0 

LD 

BCfROHSAD 


02D2' 

AF 

XOR 

A 


02D3' 

ED 12 

SBC 

HL,BC 


02D5' 

11 

LD 

BfH 


02D6' 

ID 

LD 

C»L 


02D7' 

21 01A0' 

LD 

HLrLAST 

; HOVE UPPER HALF 

02DA' 

11 F1A0 

LD 

DEfROHSAD 


02DD' 

ED BO 

LDIR 

A 

f 

HOVE BLOCK 


f 

i JUHP TO RAH AREA TO START TESTING 


02DF' C3 F4A0‘ JP ACTTST 

A 

t 

i PRINT OUT A HESSAGE 






02E2' 



PHSGJ 



02E2' 

DD 

7E 00 

LD 

A»(IX) 

f GET CURSOR POSITION 

02E5' 

D3 

01 

OUT 

(VTCCU1)»A 

; AND SET CURSOR 

02E7' 

DD 

23 

INC 

IX 


02E9' 

DD 

7E 00 

LD 

A»(IX) 


02EC' 

D3 

05 

OUT 

(VTCCU2).A 


02EE' 

DD 

23 

INC 

IX 


02F0' 



PHSGLi: 



02F0' 

DD 

7E 00 

LD 

A»(IX) 

; GET CHARACTER FROH MESSAGE 

02F3' 

B7 


OR 

A } CHECK 

IF NO MORE 

02F1' 

28 

10 

JR 

Z»PHSGRT 


02F6' 

D3 

1C 

OUT 

(VTODAT)fA 

J DISPLAY ONTO PVTC 

02F8' 

3E 

AB 

LD 

AiNRINC 


02FA' 

D3 

01 

OUT 

(VTCCHD)fA 


02FC' 



PMSGL25 



02FC' 

DB 

01 

IN 

A»(VTCSTA) 

» GET STATUS REGISTER 

02FE' 

E6 

20 

AND 

VTCRDY 

5 CHECK IF READY 

0300' 

28 

FA 

JR 

ZfPMSGLZ 

i REPEAT IF NOT 

0302' 

DD 

23 

INC 

IX ; POINT TO NEXT CHARACTER 

0301' 

18 

EA 

JR 

PHSGLI 


0306' 



PMSGRTJ 



0306' 

FD 

E9 

JP 

(lY) 

; SIMULATED RETURN 


f 

i MESSAGES 


i 


0308' 

0221 

SIGNON! DN 

030A' 

50 19 15 11 

DB 

030E' 

20 50 19 50 


0312' 

15 52 00 


0315' 

03FA 0000 

BADSYS! DN 

0319' 

02BA 

THHSG: DN 

031B' 

ID 65 6D 6F 

DB 

031F' 

72 79 20 71 


0323' 

65 73 71 2E 


0327' 

2E 2E 00 


032A' 

030A 

MIHDG! DN 


VTCBEG+120 
'PIED PIPER'fO 


VTCBEGMSO+IIOjO 
VTCBEG+160+110 
'Heiory te5t...'fO 


VTCBEG+2^0+110 
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032C' 

ID 65 6D 6F 

DB 

'Heaory error et eddressl 'jO 

0330' 

72 79 20 65 



0331' 

72 72 6F 72 



0338' 

20 61 71 20 



033C' 

61 61 61 72 



0310' 

65 73 73 3A 



0311' 

20 00 



0316' 

035A 

CONTENTJDN 

VTCBEG+320+110 

0318' 

20 20 13 6F 

DB 

' Content: 'fO 

031C' 

6E 71 65 6E 



0350' 

71 3A 20 00 



0351' 

20 20 50 61 

PATTERNJDB 

' Pettern: 'jO 

0358' 

71 71 65 72 



035C' 

6E 3A 20 00 



0360' 

03AA 

prompt: dm 

VTCBEG+100+110 

0362' 

50 72 65 73 

DB 

'Press 3ny key to continue. 'tO 

0366' 

73 20 61 6E 



036A' 

79 20 68 65 



036E' 

79 20 71 6F 



0372' 

20 63 6F 6E 



0376' 

71 69 6E 75 



037A' 

65 2E 20 00 





♦ 

j 1. 

CHECK IF HARM BOOT 

037E' 


i 

SHOu: 


037E' 

ED 57 

LD 

Afl : SET DISPLAY REQUIRED BIT 

0380' 

CB FF 

SET 

7,A 

0382' 

ED 17 

LD 

I.A 

0381' 


nodisp: 


0381' 

21 FF93' 

LD 

HL.CHKSUM 5 COMPUTE LENGTH OF BLOCK TO COMPARE 

0387' 

OE 10 

LD 

CrlOH 

0389' 

06 FB 

LD 

B.ITRVEC f STARTING AFTER INTERRUPT VECTORS 

0388' 

AF 

XOR 

A 

038C' 

ED 12 

SBC 

HLfBC 

038E' 

11 

LD 

BrH 

038F' 

ID 

LD 

C»L 

0390' 

26 FB 

LD 

HfITRVEC f COMPUTE START OFFSET OF ROM 

0392' 

2E 10 

LD 

L>10H 

0391' 

11 F1A0 

LD 

DEjROMSAD 

0397' 

AF 

XOR 

A 

0398' 

ED 52 

SBC 

HLjDE 

039A' 

11 01A0’ 

LD 

DEfLAST-PROMST 

039D' 

19 

ADD 

HLfDE 

039E’ 

16 FB 

LD 

DfITRVEC ; SET START OFFSET IN RAH 

03A0' 

IE 10 

LD 

E,10H 

03A2' 


NAITL7: 


03A2' 

lA 

LD 

Af(DE) 

03A3' 

BE 

CP 

(HL) 

03A1' 

20 10 

JR 

NZ.HAITL9 ? PROCEED NORMAL DIAGNOTIC IF NOT SAME 

03A6' 

23 

INC 

HL 

03A7' 

13 

INC 

DE 

03A8' 

OB 

DEC 

BC 

03A9' 

78 

LD 

A>B 

03AA' 

B1 

OR 

C 

03AB' 

20 F5 

JR 

NZrNAITL7 i REPEAT UNTIL HHOLE BLOCK CHECKED 



} SET INDICATOR FOR LATER 
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03AD' 

ED 57 

LD 

03AF' 

CB F7 

SET 

03B1' 

ED 47 

LD 

03B3' 

C3 0476' 

JP 


1-15 


A>I 

6fA 

I»A 

HOVE ; THEN PROCEED DIRECTLY TO BOOT 




j 5. 

HEHORY TEST (LOCATION 8000H TO FFFFH) 

03B6' 


f 

HAITL9J 



03B6' 

IE A5 

LD 

E.TSTPAT 

f INITIALIZE TEST PATTERN 

03B8' 


NXPATIJ 



03B8' 

21 8000 

LD 

HLfMlBEG 

f GET STARTING ADDRESS 

03BB' 

01 8000 

LD 

BCfHlSIZE 

f SET UP LOOP COUNTER 

03BE' 


LDLPIJ 



03BE' 

73 

LD 

(HL)fE 

! LOAD PATTERN IN HEHORY 

03BF' 

23 

INC 

HL » 

INCREHENT HEHORY INDEX 

03C0' 

OB 

DEC 

BC ? 

REPEAT UNTIL ALL LOADED 

03C1' 

78 

LD 

A>B 


03C2' 

B1 

OR 

C 


03C3' 

20 F9 

JR 

NZtLDLPI 


03C5' 

21 8000 

LD 

HLrHlBEG 

f COHPUTE END ADDRESS 

03C8' 

01 3000 

LD 

BCfHlSIZE 


03CB' 

09 

ADD 

HLfBC 


03CC' 

2B 

DEC 

HL 5 

GET STARTING ADDRESS FOR CHECKINF 

03CD' 

01 8000 

LD 

BCfHlSIZE 

t SET UP LOOP COUNTER 

0300' 


CHKLP15 



03D0' 

7B 

LD 

AfE 

t GET TEST PATTERN 

03D1' 

56 

LD 

Df(HL) 

f GET HEHORY CONTENT 

03D2' 

BA 

CP 

D f 

COHPARE WITH PATTERN 

03D3' 

20 14 

JR 

NZfHlERR 


03D5' 

2F 

CPL 

f 

COHPLEHENT PATTERN 

03D6' 

77 

LD 

(HL)fA 

f LOAD IN HEHORY 

03D7' 

56 

LD 

Of(HL) 


0308' 

BA 

CP 

D f 

AND CHECK IHHEDIATELY 

03D9' 

20 OE 

JR 

NZfHlERR 


03DB' 

2B 

DEC 

HL ; 

DECREHENT HEHORY INDEX 

03DC' 

OB 

DEC 

BC ; 

REPEAT UNTIL ALL CHECKED 

03DD' 

78 

LD 

AfB 


03DE' 

B1 

OR 

C 


03DF' 

20 EF 

JR 

NZfCHKLPl 


03E1' 

AF 

XOR 

A f 

CLEAR CARRY FLAG 

03E2' 

CB 23 

SLA 

E f 

UPDATE PATTERN 

03E4' 

30 D2 

JR 

NCfNXPATl 


03E6' 

C3 0476' 

JP 

HlOK 


03E9' 


H1ERR5 



03E9' 

ED 57 

LD 

Afl 

t GET ERROR INDICATOR 

03EB' 

CB D7 

SET 

2fA 

f SET UPPER HEHORY ERROR BIT 

03ED' 

ED 47 

LD 

IfA 

f SAVE INDICATOR 

03EF' 

CB 7F 

BIT 

7fA 

5 CHECK IF DISPLAY REQUIRED 

03F1' 

28 3D 

JR 

ZfHlERRS 


03F3' 

DD 21 032A' 

LD 

IXfHlHDG 


03F7' 

FD 21 03FE' 

LD 

lYfHlERRl 


03FB' 

C3 02E2' 

JP 

PHSG 


03FE' 


HIERRIJ 



03FE' 

7C 

LD 

AfH 

f DISPLAY HEHORY ADDRESS 

03FF' 

FD 21 0405' 

LD 

IYfHlERR3 


0403' 

18 41 

JR 

B2H 
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0105' 


H1ERR3! 


0105' 

7D 


ld 

0106' 

FD 21 OIOC 


ld 

010A' 

18 3A 


JR 

OIOC 


MlERRi: 


OIOC 

DD 21 0316' 


LD 

0110' 

FD 21 0117' 


LD 

0111' 

C3 02E2' 


JP 

0117' 


M1ERR5: 


0117' 

7A 


LD 

0118' 

FD 21 011E' 


LD 

one 

18 28 


JR 

011E' 


M1ERR6! 


011E' 

DD 21 0351’ 


LD 

0122' 

FD 21 0129' 


LD 

0126' 

C3 02F0' 


JP 

0129' 


H1ERR7; 


0129' 

7B 


LD 

012A' 

FD 21 0130' 


LD 

012E' 

18 16 


JR 

0130' 


M1ERR85 


0130' 

DD 21 0315' 


LD 

0131' 

FD 21 013B' 


LD 

0138' 

C3 02E2' 


JP 

013B' 


M1ERR9; 


013B' 

DD 21 07AF' 


LD 

013F' 

FD 21 09B7' 


LD 

0113' 

C3 02F0' 


JP 



f 

f 

CONVERT 

0116' 


f 

B2HJ 


0116' 

17 


LD 

0117' 

CB 3F 


SRL 

0119' 

CB 3F 


SRL 

011B' 

CB 3F 


SRL 

011D' 

CB 3F 


SRL 

011F' 

DD 21 0155' 


LD 

0153' 

18 OB 


JR 

0155' 


B2HLSN: 


0155' 

78 


LD 

0156’ 

E6 OF 


AND 

0158’ 

DD 21 015E' 


LD 

015C' 

18 02 


JR 

015E' 


B2HRET: 


015E' 

FD E9 


JP 

0160' 


B2HEXEJ 


0160' 

C6 30 


ADD 

0162' 

FE 3A 


CP 

0161' 

38 02 


JR 

0166' 

C6 07 


ADD 

0168’ 


digit: 


0168' 

D3 1C 


OUT 

016A' 

3E AB 


LD 

016C' 

D3 01 


OUT 

016E' 


B2HLP1 



A,L 

IY»H1ERR1 

B2H 

ixjContent j display memory content 

lYrMlERRS 

PMSG 

AjD 

IY»H1ERR6 

B2H 

IX»PATTERN J DISPLAY TEST PATTERN 

IY»H1ERR7 

PMSGLl 

A,E 

IY»M1ERR8 

B2H 

IXjBADSYS 

lYfHlERR? 

PMSG 

IX»FAILMSG-ROMSAD+LAST-PROMST 
lY rINDBAO-ROMSAD+LAST-PROMST 
PMSGLl 

A BINARY NUMBER TO HEX 


B»A J SAVE NUMBER FOR LATER 

A ; OBTAIN UPPER NIBBLE 
A 
A 
A 

IX.B2HLSN 

B2HEXE ? CONVERT UPPER NIBBLE 

AfB ; RETRIEVE NUMBER 

OFH } OBTAIN LONER NIBBLE 

IX»B2HRET 
B2HEXE 

(lY) i RETURN 

Af30H » CONVERT TO ASCII NUMBER 

3AH ; CHECK IF OVER 9 

C»DIGIT 

Af7 5 CONVERT TO ALPHA 

(VTODAT)»A ? DISPLAY DIGIT 

AfNRINC 

(VTCCMD)fA 
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016E' 

OB 01 


IN 

Af(VTCSTA) 

; GET STATUS 

0170' 

E6 20 


AND 

VTCRDY 

t WAIT UNTIL NOT BUSY 

0172' 

28 FA 


JR 

Z»B2HLP 


0171' 

00 E9 


JP 

(IX) 

f RETURN 

0176' 


f 

H10K5 

A 






) 

A 

i 

A 

6. TO HOVE PROGRAH FROH ROM TO UPPER RAM AREA 

0176' 


HOVES 




0176' 

21 01A0' 


LD 

HLfLAST 

} COMPUTE SIZE OF LONER HALF OF CODE 

0179' 

01 0000 


LD 

BCrPROMST 


017C' 

AF 


XOR 

A 


017D' 

EO 12 


SBC 

HL»BC 


017F' 

11 


LD 

B>H 


0180' 

ID 


LD 

CfL 


0181' 

21 0000 


LD 

HLfPROMST 

5 MOVE LONER HALF FIRST 

0181' 

11 FOOO 


LD 

DEfPROMAD 


0187' 

ED BO 


LDIR 



0189' 

21 FFFF 


LD 

HLrHEMEND 

; COMPUTE SIZE OF UPPER HALF OF CODE 

018C' 

23 


INC 

HL 


0180' 

01 F1A0 


LD 

BCfROMSAD 


0190' 

AF 


XOR 

A 


0191' 

ED 12 


SBC 

HL»BC 


0193' 

11 


LD 

B>H 


0191' 

ID 


LD 

CfL 


0195' 

21 01A0' 


LD 

HLfLAST 

5 MOVE UPPER HALF 

0198' 

11 F1A0 


LD 

DEfROMSAD 


019B' 

ED BO 

« 

LDIR 

# 

MOVE BLOCK 



t 

} 

JUMP TO RAH AREA TO START EXECUTING 

0190' 

C3 F697' 

f 

JP 

AFHOVE 


01A0' 


LAST 

E8U 

$ 



? 

ORG ROMSAD+PROflST 


ACTIMATE TEST 


F1A0' 


acttst; 




F1A0' 

DB 18 


IN 

Af(STAREG) 

J DISABLE PROM 

F1A2' 

3E 6D 


LD 

Af06DH 

t CHECK IF PROM DISABLED 

F1A1' 

32 0000 


LD 

(PROHST)fA 

i HRITE PATTERN TO MEMORY 

F1A7' 

17 


LD 

BfA 

} SAVE PATTERN 

F1A8' 

3A 0000 


LD 

Af(PROMST) 

f READ BACK 

F1AB' 

B8 


CP 

B 


FIAC 

C2 0071' 


JP 

NZfCPUERR 

; HALT IF PROM STILL ENABLED 

F1AF' 

EO 57 


LD 

Afl 


F1B1' 

CB 5F 


BIT 

3rA 

) CHECK IF DISK TEST 

F1B3' 

CA F5A1' 


JP 

ZfTESTM 

f BRANCH IF MEMORY TEST IF NOT 



* 

• 

FLOPPY DISK TEST 


F1B6' 

31 FOOO 

f 

LD 

SPfPROMAD 

» SET UP STACK POINTER 

F1B9' 

21 021A 


LD 

HLfVTCBEG+110 

? SYNCHRONIZE PVTC REGISTERS 

FIBC 

CD F892' 


CALL 

SETCUR 
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F1BF' 

OD 21 F72E’ 


LD 

IX»DTMSG 

) DISPLAY DISK TEST MESSAGE 

F^C3' 

CD F84E’ 


CALL 

OUTHSG 


F^C6' 


DTLPIJ 




F1C6' 

DB 09 


IN 

Af(KEYBST) 

} GET KEYBOARD STATUS 

F1C8' 

E6 OF 


AND 

KEYBHK 

? CHECK IF KEY ENTERED 

F1CA' 

28 FA 


JR 

Z»DTLP1 

} WAIT UNTIL KEY ENTERED 

FICC 

DB 08 


IN 

A»(KEYBDA) 

} CLEAR BUFFER 

F1CE' 

3E FB 


LD 

AfITRMEC 

; INITIALIZE INTERRUPT VECTOR 

FIDO’ 

ED 47 


LD 

I»A 




A 

# 

IH2 

i SET FOR NODE THO 

FW2' 

ED 5E 


DB 

0EDH*5EH 


FW 

3E 01 


LD 

A>DSKA 

; SELECT DRIVE A 

F1D6’ 

CD FAA5’ 


CALL 

CHECK 

i CHECK IF DRIVE FUNCTIONING 

F1D9’ 

B7 


OR 

A f SKIP TEST IF ERROR 

F1DA' 

CA F9A7’ 


JP 

ZjLOCAL 


F10D' 

CD FA60’ 


CALL 

SPEED 

; CHECK DRIVE SPEED 

F^EO' 

B7 


OR 

A ; SKIP TEST IF ERROR 

F1E1' 

C2 F9A7’ 


JP 

NZrLOCAL 


F1E4' 

3E 01 


LD 

AfOSKA 

; RESET TO SIDE 0 AND TRACK 0 

F1E6' 

CD FC62’ 


CALL 

DSKSEL 


FIE?’ 

IE OC 


LD 

EfRSCHD+OERIFY+HDLOAD 

F1EB’ 

3A FFDl’ 


LD 

A»(STEPS) 


F4EE’ 

B3 


OR 

E 


FIEF’ 

CD FD06’ 


CALL 

TYPEl 


F1F2’ 

3E 28 


LD 

A»40 

f SET TO SEEK CYLINDER 40 

F1F1’ 

D3 13 


OUT 

(FDDATA)*A 


F4F6’ 

IE 1C 


LD 

EfSKCHD+VERIFY+HDLOAD 

F4F8’ 

3A FFDl’ 


LD 

Ar(STEPS) 


F4FB’ 

B3 


OR 

E 


F4FC’ 

CD FD06’ 


CALL 

TYPEl 

5 SEEK CYLINDER 40 

F4FF’ 

11 0028 


LD 

DEj40 

) DEFAULT MAXIMUM CYLINDER TO 40 

F502' 

E6 10 


AND 

RNF 

; CHECK IF RECORD NOT FOUND 

F504’ 

20 03 


JR 

NZ.DMFY3 


F506’ 

11 0050 


LD 

DErBO 

} SET MAXIMUM CYLINDER TO 80 

F509' 


DVFY35 




F509’ 

3A FFD3’ 


LD 

Af(SELBYT) 

; CHECK IF DOUBLE SIDED 

F50C’ 

CB 6F 


BIT 

DSIDErA 


F50E’ 

28 04 


JR 

ZjDVFY? 

} SAVE LIMIT IF NOT 

F510’ 

CB 23 


SLA 

E 5 HULTIPLY LIMIT BY 2 

F512’ 

CB 12 


RL 

D 


F514’ 


DVFY9J 




F514’ 

ED 53 FF9F’ 


LD 

(HAXTRK)»DE 

5 SAVE LIMIT FOR LATER 

F518’ 


DTLP2J 




F518’ 

3E 01 


LD 

A>DSKA 

} SELECT SIDE 0 OF DRIVE A 

F51A’ 

CD FC62' 


CALL 

DSKSEL 


F51D’ 

IE OC 


LD 

EfRSCHD+VERIFY+HDLOAD ) RESTORE DRIVE 

F51F’ 

3A FFDl’ 


LD 

Af(STEPS) 


F522’ 

B3 


OR 

E 


F523’ 

CD FD06’ 


CALL 

TYPEl 


F526’ 

11 0000 


LD 

DEfO 

5 START FROM TRACK 0 

F529’ 

ED 53 FFAl’ 


LD 

(TRKNBR)rDE 

; AND SAVE FOR LATER 

F52D’ 

3E 01 


LD 

A>1 

) START FROM SECTOR 1 

F52F' 

OE 82 


LD 

CrRDCHD 

5 SET FOR READING SIDE 0 

F53i’ 


DOFYi: 




F531’ 

32 FFA3’ 


LD 

(SECNBR)rA 


F534’ 

D3 12 


OUT 

(FDSEOfA 

; SET UP SECTOR REGISTER 
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F536' 


DVFY2: 




F536' 

79 


LD 

AfC 


F537' 

21 8000 


LD 

HLfVFYBUF 


F53A' 

CD FC78' 


CALL 

FORMS 

} READ IN SECTOR 

F53D’ 

B7 


OR 

A ; CHECK IF ERROR 

F53E' 

28 03 


JR 

Z»DUFY4 


F510' 

CD F597' 


CALL 

VFYERR 


F513' 


DVFY4J 




F543' 

3A FFA3' 


LD 

A>(SECNBR) 

; ADVANCE TO NEXT SECTOR 

F546' 

3C 


INC 

A 


F547' 

FE 09 


CP 

9 ; CHECK IF READ IN EIGHT SECTORS ALREADY 

F549' 

20 E6 


JR 

NZfDVFYl 


F54B' 

ED 5B FFAl' 


LD 

OE»(TRKNBR) 

; ADVANCE TO NEXT TRACK 

F54F' 

13 


INC 

DE 


F550' 

2A FF9F' 


LD 

HL»<MAXTRK) 

f GET TRACK LIHIT 

F553' 

AF 


XOR 

A 


F554' 

ED 52 


SBC 

HLrDE 

> CHECK IF LIMIT REACH 

F556' 

28 CO 


JR 

Z»DTLP2 

t REPEAT TEST IF SO 

F558' 

ED 53 FFAl' 


LD 

(TRKNBR)»DE 


F55C' 

3A FFD3' 


LD 

Af(SELBYT) 

) GET NUMBER OF SIDES 

F55F' 

CB 6F 


BIT 

DSIDEiA 

J CHECK IF ONE SIDE 

F561' 

28 1C 


JR 

ZrDVFY5 


F563' 

3A FFE2' 


LD 

A^dOREG) 

> GET CURRENT SELECT BYTE 

F566' 

CB 57 


BIT 

SIDEhA 

} CHECK CURRENT SIDE 

F568' 

20 08 


JR 

NZ»DVFY6 


F56A’ 

06 01 


LD 

Bfl 

} SET SIDE 1 

F56C' 

OE 8A 


LD 

C;RDCHD+8 


F56E’ 

CB D7 


SET 

SIDElfA 


F570' 

18 06 


JR 

DMFY7 


F572' 


0VFY6: 




F572' 

06 00 


LD 

BfO 

) SET SIDE 0 

F574' 

OE 82 


LD 

CfRDCHD 


F576' 

CB 97 


RES 

SIDEhA 


F578' 


0VFY7{ 




F578' 

CD FC62' 


CALL 

DSKSEL 

5 SELECT F-ROPER SIDE 

F57B' 

78 


LD 

M. 

; CHECK IF STEP REQUIRED 

F57C' 

B7 


OR 

A 


F57D' 

20 B2 


JR 

NZfDVFYl 


F57F' 


0MFY5{ 




F57F' 

IE 58 


LD 

E>SICHD+HDLOAD 

J SET UP STEP COMMAND 

F581' 

3A FFDl’ 


LD 

A»(STEPS) 


F584' 

B3 


OR 

E 


F585' 

CD FD06' 


CALL 

TYPEl 


F588' 

3A FFAl' 


LD 

Af(TRKNBR) 

» GET TRACK NUMBER 

F58B' 

C6 32 


ADO 

Af50 

t MINIMUM DELAY IS 50 MSED 

F58D' 


0VFY8t 




F58D' 

CO FD60' 


CALL 

DELAY 


F590' 

3D 


DEC 

A 


F591' 

20 FA 


JR 

NZ»DVFY8 


F593’ 

3E 01 


LD 

Afl 

J RESET TO SECTOR ONE 

F595’ 

18 9A 


JR 

OMFYl 

5 CONTINUE TEST 



f 

} 

t 

HANDLE DISK TEST ERROR 


F597' 


f 

MFYERR} 




F597' 

D3 1C 


OUT 

(yTOOAT)»A 

J DISPLAY ERROR CODE 
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F599' 

3E AB 


LD 

F59B' 

D3 01 


OUT 

F59D' 

CD F8C2‘ 


CALL 

F5A0' 

FSAl' 

C9 

t 

A 

f 

f 

TESTHJ 

RET 

HEHORY 

F5A1’ 

08 


EX 

F5A2' 

AF 


XOR 

F5A3' 

08 


EX 

F5A1' 

F5A6' 

IE 01 

NXPAT4; 

LD 

F5A6' 

21 0000 


LD 

F5A9‘ 

F5AC' 

01 FOOO 

LDLP4} 

LD 

F5AC' 

73 


LD 

F5AD' 

23 


INC 

F5AE’ 

OB 


DEC 

F5AF' 

78 


LD 

F5B0' 

B1 


OR 

F5B1' 

20 F9 


JR 

F5B3’ 

3E 02 


LD 

F5B5' 

FD 21 F5BC' 


LD 

F5B9' 

F5BC' 

C3 F29D' 

CHECK4t 

JP 

F5BC' 

21 EFFF 


LD 

F5BF' 

F5C2' 

01 FOOO 

CHKLP4J 

LD 

F5C2' 

7B 


LD 

F5C3' 

56 


LD 

F5C1' 

BA 


CP 

F5C5' 

20 5E 


JR 

F5C7' 

2F 


CPL 

F5C8' 

77 


LD 

F5C9' 

56 


LD 

F5CA' 

BA 


CP 

F5CB' 

F5CD' 

20 58 

NXTAD4; 

JR 

F5CD' 

2B 


DEC 

F5CE' 

OB 


DEC 

F5CF’ 

79 


LD 

F5D0' 

BO 


OR 

F5Dr 

20 EF 


JR 

F5D3' 

3E 02 


LD 

F5D5' 

FD 21 F5DC' 


LD 

F5D9' 

F50C' 

C3 F29D' 

NXADR4} 

JP 

F5DC' 

AF 


XOR 

F5DD' 

CB 23 


SLA 

F5DF' 

30 C5 


JR 

F5E1' 

08 


EX 

F5E2' 

3E 01 


LD 

F5Er 

08 


EX 

F5E5' 

F5E7' 

IE 01 

NXPAT6; 

LD 


1-20 


A^HRINC 

(MTCCHD)fA 

«AIT 


TEST 


AF»AF' J SET FOR FORWARD DIRECTION 

A 

AFiAF* 

EfOlH ; INITIALIZE TEST PATTERN 

HLrHZBEG J GET STARTING ADDRESS 

BCfHZSIZE f SET UP LOOP COUNTER 

(HL)»E 5 LOAD PATTERN IN HEHORY 

HL ; INCREHENT HEHORY INDEX 

BC > REPEAT UNTIL ALL LOADED 

ArB 
C 

NZ»LDLP1 

Af02H f SET TO FLASH DRIVE A LED 

IYtCHECKI ? SET RETURN ADDRESS 

FLHLP+PROHAD-PROMST 

HL»H1BEG i CONFUTE END ADDRESS 

BC»H2SIZE ? SET UP LOOP COUNTER 

A»E f GET TEST PATTERN 

D»(HL) ; GET HENORY CONTENT 

D » COHPARE WITH PATTERN 

NZfMIERR 

J COMPLEHENT PATTERN 
(HL)»A f LOAD IN HEHORY 

D»(HL) 

D } AND CHECK IHHEDIATELY 

NZfHIERR 

HL 5 OECREHENT HEHORY INDEX 

BC t REPEAT UNTIL ALL CHECKED 

A>C 
B 

NZjCHKLPI 

Af02H 5 SET TO FLASH DRIVE A LED 

lYrNXADRI 

FLHLP+PROHAD-PROHST 

A J CLEAR CARRY FLAG 

E f UPDATE PATTERN 

NC»NXPAT^ 

AFjAF' 

A»1 ? SET FOR BACKWARD DIRECTION 

AF,AF' 

E,01H 5 INITIALIZE TEST PATTERN 



F5E7' 

21 EFFF 

LD 

F5EA' 

01 FOOO 

LD 

F5ED' 


LDLP6} 

F5ED' 

73 

LD 

F5EE' 

2B 

DEC 

F5EF' 

OB 

DEC 

F5F0' 

78 

LD 

F5F1' 

61 

OR 

F5FZ' 

20 F9 

JR 

F5F4' 

3E 02 

LD 

F5F6' 

FD 21 F5FD' 

LD 

F5FA' 

C3 F29D' 

JP 

F5FD' 


CHECK65 

F5FD' 

21 0000 

LD 

F600' 

01 FOOO 

LD 

F603' 


CHKLP6; 

F603' 

7B 

LD 

F601' 

56 

LD 

F605' 

BA 

CP 

F606' 

20 ID 

JR 

F608' 

2F 

CPL 

F609' 

77 

LD 

F60A' 

56 

LD 

F60B' 

BA 

CP 

F60C' 

20 17 

JR 

F60E' 


NXTAD6} 

F60E' 

23 

INC 

F60F‘ 

OB 

DEC 

F610' 

79 

LD 

F611’ 

BO 

OR 

F612' 

20 EF 

JR 

F614' 

3E 02 

LD 

F616' 

FD 21 F61D' 

LD 

F61A‘ 

C3 F29D’ 

JP 

F61D' 


NXADR6t 

F61D’ 

AF 

XOR 

F61E' 

CB 23 

SLA 

F620' 

30 C5 

JR 

F622' 

C3 F5Ar 

JP 

F625' 


H4ERRJ 

F625' 

ED 57 

LD 

F627’ 

CB D7 

SET 

F629' 

ED 47 

LD 

F62B' 

DD 21 F32A' 

LD 

F6ZF' 

FD 21 F636‘ 

LD 

F633' 

C3 F2E2' 

JP 

F636' 


H4ERR1} 

F636' 

7C 

LD 

F637' 

FD 21 F63E' 

LD 

F63B' 

C3 F446' 

JP 

F63E' 


H4ERR35 

F63E' 

7D 

LD 

F63F' 

FD 21 F646' 

LD 

F643' 

C3 F446' 

JP 

F646' 


M4ERR45 

F646' 

DD 21 0346' 

LD 


HLrHIBEG J GET STARTING ADDRESS 

BC.M2SIZE ; SET UP LOOP COUNTER 

(HL)»E } LOAD PATTERN IN MEHORY 

HL } DECREHENT HENORY INDEX 

BC ? REPEAT UNTIL ALL LOADED 

ArB 
C 

NZfLDLP6 

A»02H ; SET TO FLASH ORIUE B LED 

IYjCHECK6 f SET RETURN ADDRESS 

FLHLP+PROHAD-PROMST 

HLrH2BEG > COMPUTE END ADDRESS 

BC»M2SIZE } SET UP LOOP COUNTER 

AfE ? GET TEST PATTERN 

0,(HL) ; GET MEMORY CONTENT 

D f COMPARE WITH PATTERN 

NZfM^ERR 

i COMPLEMENT PATTERN 
(HL)jA ? LOAD IN MEHORY 

D»(HL) 

D ; AND CHECK IMMEDIATELY 

NZfHIERR 

HL i INCREMENT MEMORY INDEX 

BC ? REPEAT UNTIL ALL CHECKED 

ArC 
B 

NZfCHKLP6 

A»02H » SET TO FLASH DRIVE B LED 

IY»NXADR6 

FLHLP+PROMAD-PROMST 

A ; CLEAR CARRY FLAG 

E ; UPDATE PATTERN 

NC>NXPAT6 

TESTM J REPEAT UNTIL RESET 

Arl } SET ERROR INDICATOR 

2rA 

IrA 

IXiMlHDG+PROMAD-PROMST 

lYfM^ERRl 

PMSG+PROMAD-PROMST 

A>H » DISPLAY MEMORY ADDRESS 

lYrMIERRS 

B2H+PR0MAD-PR0MST 

A»L 

IY»M1ERR1 

B2H+PROMAD-PROMST 

IX»CONTENT I DISPLAY MEMORY CONTENT 
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F61A' 

FD 21 F65i‘ 

LD 

IYjH4ERR5 


F61E' 

C3 F2E2' 

JP 

PHSG+PROHAD-PROHST 

F651' 


M4ERR55 



F651' 

7A 

LD 

ArD 


F652' 

FD 21 Fd59' 

LD 

IYiH4ERR6 


F656' 

C3 F446' 

JP 

B2H+PR0MAD-PR0MST 

F659' 


ii4ERR6; 



F659' 

DD 21 0354' 

LD 

IXfPATTERN 

» DISPLAY TEST PATTERN 

F65D' 

FD 21 F664' 

LD 

IY}H4ERR7 


F661' 

C3 F2F0' 

JP 

PHSGLl+PROHAD-PROHST 

F661' 


M4ERR7; 



F66r 

7B 

LD 

AjE 


F665' 

FD 21 F66C' 

LD 

IY»H4ERR8 


F669* 

C3 F446' 

JP 

B2H+PR0MAD-PR0HST 

F66C’ 


H4ERR8{ 



F66C' 

DD 21 0360' 

LD 

IXyPROMPT 


F670' 

FD 21 F677' 

LD 

IY.H4ERR9 


F671' 

C3 F2E2' 

JP 

PHSG+PROHAD-PROHST 

F677' 


H4ERR9} 



F677' 

3E 03 

LD 

A»03H 

; SET TO FLASH BOTH DRIVES LED 

F679' 

FD 21 F680' 

LD 

IY»H4ER10 


F67D' 

C3 F29D' 

JP 

FLHLP+PROHAD-PROHST 

F680' 


H4ER105 



F680' 

DB 09 

IN 

Aj(KEYBST) 

f GET KEYBOARD STATUS 

F682' 

E6 OF 

AND 

KEYBHK 


F684' 

23 FI 

JR 

2»H4ERR9 

f REPEAT FLASHING LED 

F686' 

DB 08 

IN 

A*(KEYBOA) 

? CLEAR KEY 

F688' 

08 

EX 

AFfAF' 


F689' 

FD 21 F60E' 

LD 

IYjNXTAD6 

} SET RETURN ADDRESS FOR BACKWARD TEST 

F68D' 

B7 

OR 

A ; CHECK 

IF GOING FORWARD OR BACKWARD 

F68E' 

20 04 

JR 

NZrNXTBHD 


F690' 

FD 21 F5CD' 

LD 

IYjNXTAD4 

> SET RETURN ADDRESS FOR FORWARD TEST 

F691' 


NXTBNDl 



F691’ 

08 

EX 

AFrAF' 


F695' 

FD E9 

JP 

(IY> 

J GO TO NEXT LOCATION 



t 

f 7. 

HEHORY TEST (LOCATION OOOOH TO F800H) 

F697' 


J 

AFHOMEt 



F697' 

OB 18 

IN 

Ay(STAREG) 

f DISABLE ROH 

F699' 

3E 60 

LD 

Af06DH 

f CHECK IF PROH DISABLED 

F69B' 

32 0000 

LD 

(PROHST)»A 

i WRITE PATTERN TO HEHORY 

F69E' 

47 

LD 

BtA 

} SAVE PATTERN 

F69F' 

3A 0000 

LD 

AjCPROHST) 

> READ BACK 

F6A2' 

B8 

CP 

B 


F6A3' 

C2 0071' 

JP 

NZ»CPUERR 

} HALT IF PROH STILL ENABLED 

F6A6' 

ED 57 

LD 

Afl 

; CHECK IF WARN BOOT 

F6A8‘ 

CB 77 

BIT 

6>A 


F6AA' 

C2 F8C9' 

JP 

NZjBOOT 

; SKIP TO BOOT 

F6AD' 


HTEST2J 



F6AD' 

IE A5 

LD 

EfTSTPAT 

f INITIALIZE TEST PATTERN 

F6AF' 


HXPAT2} 



F6AF' 

21 0000 

LD 

HLrHZBEG 

? GET STARTING ADDRESS 

F6B2' 

01 FOOO 

LD 

BCjH2SIZE 

J SET UP LOOP COUNTER 

F6B5' 


LDLP2J 



F6B5' 

73 

LD 

(HL)»E 

; LOAD PATTERN IN HEHORY 



F6B6' 

23 

INC 

HL ? INCREHENT NENORY INDEX 

F6B7' 

OB 

DEC 

BC ? REPEAT UNTIL ALL LOADED 

F6B8' 

78 

LD 

AiB 

F6B9' 

B1 

OR 

C 

F6BA’ 

20 F9 

JR 

NZ»L0LP2 

F6BC' 

21 0000 

LD 

HLjH2BEG * COHPUTE END ADDRESS 

F6BF' 

01 FOOO 

LD 

BC»H2SIZE 

F6C2' 

09 

ADD 

HLfBC 

F6C3' 

2B 

DEC 

HL ; GET STARTING ADDRESS FOR CHECKINF 

F6Cr 

01 FOOO 

LD 

BCfHZSIZE i SET UP LOOP COUNTER 

F6C7' 


CHKLP2} 


F6C7' 

7B 

LD 

ArE 

F6C8' 

56 

LD 

Df(HL) * GET HEHORY CONTENT 

F6C9' 

BA 

CP 

D } COMPARE WITH PATTERN 

F6CA' 

20 13 

JR 

NZ»H2ERR 

F6CC' 

2F 

CPL 

J COHPLEHENT PATTERN 

F6CD' 

77 

LD 

(HL),A ; LOAD IN MEMORY 

F6CE' 

56 

LD 

Df(HL) 

F6CF' 

BA 

CP 

0 i AND CHECK IMMEDIATELY 

F6D0' 

20 OD 

JR 

NZyMZERR 

F6D2' 

2B 

DEC 

HL 5 DECREMENT MEMORY INDEX 

F6D3' 

OB 

DEC 

BC i REPEAT UNTIL ALL CHECKED 

F6D1’ 

78 

LD 

AiB 

F6D5' 

B1 

OR 

C 

F6D6' 

20 EF 

JR 

NZ»CHKLP2 

F6D8' 

AF 

XOR 

A } CLEAR CARRY FLAG 

F6D9' 

CB 23 

SLA 

E 5 UPDATE PATTERN 

F6DB' 

30 02 

JR 

NC»NXPAT2 

F6DD' 

18 1C 

JR 

M20K 

F60F' 


H2ERR: 


F6DF' 

ED 57 

LD 

hi i GET ERROR INDICATOR 

F6E1' 

CB 07 

SET 

2»A i SET UPPER MEMORY ERROR BIT 

F6E3' 

ED 17 

LD 

IrA f SAVE INDICATOR 

F6E5' 

CB 7F 

BIT 

7rA } CHECK IF DISPLAY REQUIRED 

F6E7' 

CA F72B' 

JP 

ZfHDTEST f BRANCH IF NOT 

F6EA' 

DO 21 F32A' 

LD 

IXfMlHDG+PROMAD-PROMST * POINT TO MEMORY BAD MESSAGE 

F6EE' 

FD 21 F6F5' 

LD 

IY.M2ERR1 

F6F2' 

C3 F2F0' 

JP 

PMSGLl+PROMAD-PROMST 

F6F5' 


H2ERR1! 


F6F5' 

7C 

LD 

ArH ; DISPLAY MEMORY ADDRESS 

F6F6' 

FD 21 F6FD' 

LD 

IY»M2ERR3 

F6FA' 

C3 F116' 

JP 

B2H+PR0MAD-PR0MST 

F6FD' 


H2ERR35 


F6FD' 

7D 

LD 

A»L 

F6FE' 

FD 21 F705' 

LD 

IY»M2ERR1 

F702' 

C3 F116' 

JP 

B2H+PR0MAD-PR0MST 

F705' 


H2ERR15 


F705' 

DD 21 0316' 

LD 

IX»CONTENT J DISPLAY MEMORY CONTENT 

F709' 

FD 21 F710' 

LD 

IYfM2ERR5 

F70D' 

C3 F2E2' 

JP 

PMSG+PROMAD-PROMST 

F710' 


H2ERR5J 


F710' 

7A 

LD 

ArD 

F711' 

FD 21 F718' 

LD 

IY»M2ERR6 

F715' 

C3 F116' 

JP 

B2H+PR0MAD-PR0MST 

F718' 


H2ERR6! 


F718' 

DD 21 0351' 

LD 

IX»PATTERN ; DISPLAY TEST PATTERN 
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F71C' 

FD 21 F723' 

LD 

IYfH2ERR7 


F720' 

C3 F2F0' 

JP 

PMSGLl+PROHAD-PROHST 


F723' 


H2ERR7J. 



F723' 

78 

LD 

AiE 


F721' 

FD 21 F72B' 

LD 

IY»HDTEST 


F728' 

C3 F116’ 

JP 

B2H+PR0HAD-PR0HST 


F72E!' 


H20KI 

A 

♦ 



HARD DISK CONTROLLER TEST 


f 


F72B* 

hdtest; 


F72B' C3 F8C9' 

JP 

BOOT 


f 


HESSAGES 


f 



F72E' 

00 

OA 

OA 

11 

DTHSGl OB 

CR>LF»LF,'Disk test. 


F732' 

69 

73 

6B 

20 




F736' 

71 

65 

73 

71 




F73A' 

2E 

20 

20 

20 




F73E' 

20 







F73F' 

OD 

OA 

19 

6E 

DB 

CR»LF>'Insert formatted diskette in drive.' 


F713' 

73 

65 

72 

71 




F717' 

20 

66 

6F 

72 




F71B' 

6D 

61 

71 

71 




F71F' 

65 

61 

20 

61 




F753' 

69 

73 

68 

65 




F757' 

71 

71 

65 

20 




F75B' 

69 

6E 

20 

61 




F75F' 

72 

69 

76 

65 




F763' 

2E 







F761' 

OD 

OA 

50 

72 

DB 

CRiLFj'P ress any key to start.‘ jO 


F768' 

65 

73 

73 

20 




F76C' 

61 

6E 

79 

20 




F770' 

66 

65 

79 

20 




F771' 

71 

6F 

20 

73 




F778' 

71 

61 

72 

71 




F77C' 

2E 

00 






F77E' 

OD 

OA 

OA 

OA 

SYSOKJ DB 

CR»LFfLF»LF»LF»LFfLF»LF 


F782' 

OA 

OA 

OA 

OA 




F786' 

19 

6E 

73 

65 

DB 

'Insert system diskette in Drive.'lO 


F78A' 

72 

71 

20 

73 




F78E' 

79 

73 

71 

65 




F792' 

6D 

20 

61 

69 




F796’ 

73 

6B 

65 

71 




F79A' 

71 

65 

20 

69 




F79E' 

6E 

20 

11 

72 




F7A2' 

69 

76 

65 

2E 




F7A6‘ 

00 







F7A7' 

OD 

OA 

OA 

OA 

sysbad: DB 

CRfLF»LF»LFjLFfLF»LFrLF 


F7AB' 

OA 

OA 

OA 

OA 




F7AF' 

15 

71 

75 

69 

FAILMSGJDB 

'Ecjuipment Failure - Return for Servicins'jO 


F7B3' 

70 

6D 

65 

6E 




F7B7' 

71 

20 

16 

61 




F7BB' 

69 

6C 

75 

72 




F7BF' 

65 

20 

2D 

20 




F7C3' 

52 

65 

71 

75 
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F7C7' 

72 6E 20 66 





F7CB' 

6F 72 20 53 





F7CF' 

65 72 76 69 





F7D3' 

63 69 6E 67 





F707' 

00 





F7D8' 

OD OA 53 79 

BOOTERRJDB 

CRiLFj'Sysleffl error - refer to user aenusl.'rO 


F7DC' 

73 71 65 6D 





F7E0' 

20 65 72 72 





F7E1' 

6F 72 20 2D 





F7E8’ 

20 72 65 66 





F7EC' 

65 72 20 71 





F7F0' 

6F 20 75 73 





F7F1' 

65 72 20 60 





F7F8' 

61 6E 75 61 





F7FC' 

6C 2E 00 





F7FF' 

OD OA OA 19 

ERRITRJ 

DB 

CR»LFfLFj'Interrupt pendins - '»0 


F803' 

6E 71 65 72 





F807' 

72 75 70 71 





F80B- 

20 70 65 6E 





F80F' 

61 69 6E 67 





F813' 

20 2D 20 00 





F817' 

F827' 

itrtab: 

DU 

ITRO 


F819' 

F82B' 


DU 

ITRl 


F81B' 

F831' 


DU 

ITR2 


F81D' 

F836' 


DU 

ITR3 


F81F' 

F83F' 


DU 

ITRl 


F821' 

F815' 


DU 

ITR5 


F823' 

F818' 


DU 

ITR6 


F825' 

F81B' 


DU 

ITR7 


F827' 

11 52 51 00 

ITROt 

DB 

'DRQ'fO 


F82B' 

19 IE 51 52 

ITRll 

DB 

•INTRO'»0 


F82F' 

51 00 





F831' 

50 56 51 13 

ITR2J 

DB 

'PVTC'tO 


F835‘ 

00 





F836' 

IB 65 79 62 

ITR35 

DB 

'Keyboard'»0 


F83A' 

6F 61 72 61 





F83E' 

00 





F83F' 

51 69 6D 65 

ITR15 

DB 

'Tifter'jO 


F813' 

72 00 





F815' 

1A 38 00 

ITR5{ 

DB 

•J8'»0 


F818' 

1A 37 00 

ITR65 

DB 

'J7'r0 


F81B' 

1A 31 00 

ITR7{ 

« 

DB 

'J1'»0 




f 

* 

OUTHSG 

PRINT OUT A MESSAGE 




f 

« 

f 

* 

IN? 

IX - ADDRESS OF STRING 


F81E' 


f 

outhsg: 




mv 

DO 7E 00 


LD 

Af(IX) » GET CHARACTER 


F851' 

B7 


OR 

A ; CHECK IF NO HORE 


F852' 

28 07 


JR 

ZfOHSGRT 


F851' 

CD F85C' 


CALL 

DATAOUT 


F857' 

DD 23 


IHC 

IX 5 POINT TO NEXT CHARACTER 


F859' 

18 F3 


JR 

OUTHSG 


F85B' 


0HSGRT5 




F85B' 

C9 


RET 
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* 

} DATA OUTPUT (80 X 24) 




t 

i IN! 

A - CHARACTER 


F85C' 


? 

DATAOUT! 



F85C' 

FE 20 

CP 

BLANK 

> CHECK IF CONTROL CHARACTER 

F85E' 

38 05 

JR 

CfCNTLCH 

f YES 

F860' 

CO F874’ 

CALL 

CHAROUT 

t SEND CHARACTER 

F863' 

18 OE 

JR 

DATORT 

; RETURN 

F865' 


CNTLCH! 



F865' 

FE OA 

CP 

LF } CHECK IF LINEFEED 

F867' 

20 05 

JR 

NZfCHKCR 

* NOi GO TO CHECK FOR CARRIAGE RETURN 

F869' 

CD F89B' 

CALL 

LFEED 

? PROCESS LINEFEED 

F86C' 

18 05 

JR 

DATORT 

; RETURN 

F86E' 


CHKCR! 



F86E' 

FE OD 

CP 

CR f CHECK IF CARRIAGE RETURN 

F870' 

CC F8AA' 

CALL 

ZfCARRTN 

f PROCESS CARRIGAE RETURN 

F873' 


DATORT! 



F873' 

C9 

RET 

A 

* 

; RETURN 


; CHARACTER OUTPUT TO SCREEN 


> 




f 

A = CHARACTER 

F874' 


f 

CHAROUT! 


F874' 

F5 

PUSH 

AF 

F875' 

E5 

PUSH 

HL 

“T1 

CO 

D3 1C 

OUT 

(VTODAT)»A i SEND CHARACTER 

F878' 

3E AB 

LD 

AfHRINC J HRITE CHARACTER 8 INCREHENT CURSOR 

F87A' 

D3 01 

OUT 

(VTCCHD)jA 

F87C' 

CD F8C2' 

CALL 

HAIT 

F87F' 

3A FFD4' 

LD 

Ar(COLNO} t UPDATE COLUHN NUHBER 

F8B2' 

3C 

INC 

A 

F883' 

32 FFD4' 

LD 

(CDLNOlrA 

F886' 


CHORET! 


F886' 

El 

POP 

HL 

F887' 

FI 

POP 

AF 

F888' 

C9 

RET 

« 

5 RETURN 



f 

f 

GET CURRENT CURSOR POSITION 



f 

* 

f 

OUT! HL - CURSOR POSITION 

F889' 


f 

GETCUR! 


F889' 

F5 

PUSH 

AF f SAVE REGISTERS 

F88A' 

DB 04 

IN 

Ar(MTCCUl) ! GET CURSOR ADDRESS 

F88C' 

6F 

LD 

L>A 

F88D' 

DB 05 

IN 

Af(VTCCU2) 

F88F' 

67 

LD 

HrA 

F890' 

FI 

POP 

AF > RETRIEVE REGISTERS 

F891' 

C9 

RET 



J SET CURSOR POSITION 

I 

J IN! HL - CURSOR POSITION 
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F892' 


SETCURJ 


F892' 

F5 

PUSH 

AF } SAVE REGISTERS 

F893' 

7D 

LD 

A>L 

F891' 

D3 01 

OUT 

(VTCCUDfA 

F896' 

7C 

LD 

AfH 

F897' 

D3 05 

OUT 

(UTCCU2)»A 

F899' 

FI 

POP 

AF f RETRIEVE REGISTERS 

FB9A' 

C9 

RET 




i 

,* LINE FEED 

F89B' 


t 

LFEEOJ 


F89B‘ 

D5 

PUSH 

DE 

F89C' 

E5 

PUSH 

HL 

F89D' 


LFEED15 


F89D' 

CD F889' 

CALL 

GETCUR » GET CURRENT CURSOR POSITION 

F8A0' 

11 0050 

LD 

DErHAXCOL 

F8A3' 

19 

ADD 

HL>DE 

F8A1' 

CD F892' 

CALL 

SETCUR 5 UPDATE CURSOR POSITION 

F8A7’ 


lfret: 


F8A7' 

El 

POP 

HL 

F8A8' 

D1 

POP 

DE 

F8A9' 

C9 

RET 

i RETURN 


; CARRIAGE RETURN 


CARRTNJ 


F5 

05 

E5 

CD F889' 
3A FFD1‘ 
5F 
97 

32 FF01' 
57 

ED 52 

CD F892' 

El 

D1 

FI 

C9 


AF 

DE 

HL 

GETCUR 

A>(C0LN0) 

E>A 

A 

(C0LN0)>A 

DfA 

HLfDE 

SETCUR 

HL 

DE 

AF 

f RETURN 


J GET CURRENT CURSOR POSITION 


SET NEH CURSOR POSITION 


WAIT FOR PVTC TO BE READY 


A»(UTCSTA) 

MTCRDY 

ZfHAIT 


f GET STATUS REGISTER 
i CHECK IF READY 
; REPEAT IF NOT 


CP/H BOOT 


31 007D 


SP»BUF-3 


SET UP STACK POINTER 
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F8CC‘ 

21 021A 

LO 

HL»VTCBEG+110 

» SYNCHRONIZE PMTC 

F8CF' 

CO F892' 

CALL 

SETCUR 


F8D2' 

08 18 

IN 

A>(STAREG) 

} GET STATUS 

F8D1' 

CB 17 

BIT 

OfA 

J CHECK IF ANY INTERRUPT PENDING 

F8D6' 

20 2A 

A 

f 

JR 

NZ»B00T1 



INTERRUPT LINE ERROR 




F8D8‘ 

ED 57 

LD 

Afl 

; CHECK IF DISPLAY REQUIRED 

F8DA' 

CB 7F 

BIT 

7fA 


F8DC' 

28 20 

JR 

ZfITRERR 

» SKIP IF NOT 

F8DE' 

DO 21 F7FF' 

LD 

IXrERRITR 

; DISPLAY INTERRUPT LINE ERROR HESSAGE 

F8E2' 

CD F81E' 

CALL 

OUTHSG 


F8E5' 

DB 18 

IN 

AfCSTAREG) 

} GET STATUS 

F8E7' 

E6 OE 

AND 

OEH 

; GET INTERRUPT STATUS 

F8E9' 

IF 

LD 

CrA 

} SET UP BIAS 

F8EA’ 

06 00 

LD 

B*0 


F8EC’ 

DD 21 F817' 

LD 

IXfITRTAB 

J POINT TO ERROR HESSAGE TABLE 

F8F0' 

DD 09 

ADD 

IX.BC 

? POINT TO PROPER ERROR HESSAGE 

F8F2' 

DD IE 00 

LD 

Cf(IX) 

f GET HESSAGE ADDRESS 

F8F5' 

DD 16 01 

LD 

B.(IX+1) 


F8F8' 

C5 

PUSH 

BC 


F8F9' 

DD El 

POP 

IX 


F8FB' 

CD F81E' 

CALL 

OUTHSG 


F8FE' 


ITRERR} 



F8FE' 

3E 20 

LO 

A,20H 


F900' 

ED 17 

LD 

A 

f 

I>A 



TEST DISK CONTROLLER 


f 


F902' 


BOOTH 



F902' 

3E A5 

LD 

AfTSTPAT 

J GET TEST PATTERN 

F901' 

D3 11 

OUT 

(FDTRK)jA 

; SEND TO TRACK REGISTER 

F906' 

D3 12 

OUT 

(FDSEOrA 


F908' 

D3 13 

OUT 

(FDDATA)fA 


F90A' 

IF 

LD 

C>A 

; SAVE FOR COHPARISON 

F90B' 

DB 11 

IN 

A»(FDTRK) 

; READ BACK FOR COHPARISON 

F90D' 

B9 

CP 

C 


F90E' 

20 OA 

JR 

NZrDCERR 


F910' 

DB 12 

IN 

Af(FDSEC) 


F912' 

B9 

CP 

C 


F913' 

20 05 

JR 

NZrDCERR 


F915' 

DB 13 

IN 

AflFDDATA) 


F917' 

B9 

CP 

C 


F918' 

28 01 

JR 

Z.TSTDON 


F91A' 


DCERR! 



F91A' 

3E 10 

LD 

ArlOH 

♦ SET DISK CONTROLLER ERROR 

F91C' 

ED 17 

LD 

IfA 


F91E' 


TSTDONS 



F91E' 

DD 21 F77E' 

LD 

IXfSYSOK 

» POINT TO SYSTEH OK HESSAGE 

F922' 

ED 57 

LD 

Arl 

; GET ERROR INDICATOR 

F921' 

E6 3F 

AND 

3FH 


F926' 

B7 

OR 

A ; 1 

CHECK IF ANY ERROR 

F927' 

28 01 

JR 

Z.PHSGIO 


F929' 

DD 21 F7A7' 

LD 

IXrSYSBAD 

? POINT TO SYSTEH BAD HESSAGE 

F92D' 


PHSG105 
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F92D‘ 

CD F 8 ^E‘ 

CALL 

OUTMSG 


F930' 

ED 57 

LD 

All 

i GET ERROR INDICATOR 

F932' 

E 6 3F 

AND 

3FH 


F931' 

B7 

OR 

A 


F935' 

C2 F9B7' 

JP 

NZiINDBAD 

; INDICATOR ERROR CONDITION 



f 

f ACTIVATE BELL TO SIGNAL ALL OK 

F938' 


t 

B00T05 



F938‘ 

11 0160 

LD 

DE 1 I 6 OH 

} SET LOOP LIHIT 

F93B' 


BEEPLO; 



F93B' 

3E 51 

LD 

AiVTHODE 

i GET DEFAULT HODE REGISTER VALUE 

F93D' 

F 6 80 

OR 

BEEP 

} ACTIVATE BEEP 

F93F' 

D3 ID 

OUT 

(VTCHOD)iA 


F911' 

06 78 

LD 

B 1 I 2 O 

? DELAY LOOP 

F913’ 


BEEFli; 



F913' 

10 FE 

DJNZ 

BEEPLl 


F9^5' 

3E 54 

LD 

AiVTHODE 

f RESET BEEP 

F947' 

D3 ID 

OUT 

(VTCHOD)iA 


F949' 

06 78 

LD 

B 1 I 2 O 

? DELAY LOOP 

F9^B' 


BEEPL2J 



F91B' 

10 FE 

DJNZ 

BEEPL2 


F9^0' 

IB 

DEC 

DE } REPEAT LOOP 

F91E' 

7A 

LD 

AiD 


F91F' 

B3 

OR 

E 


F950' 

20 E9 

JR 

NZiBEEPLO 


F952' 

3E 54 

LD 

AiVTHODE 

f SAVE HODE REGISTER FOR FUTURE 

F954' 

32 FFEO- 

LD 

(HODREG)iA 


F957' 

3E FB 

LD 

AiITRVEC 

i INITIALIZE INTERRUPT VECTOR 

F959' 

ED 47 

LD 

IiA 

i HIGH BYTE 

F95B' 

32 FFEl' 

LD 

(ITRREG)iA 




> IM2 



F95E' 

ED 5E 

DB 

0EDHi5EH 


F960’ 

FB 

El 



F961' 

AF 

XOR 

A 


F962‘ 

CB EF 

SET 

TIHERiA 

i ENABLE TIHER 

F964' 

D3 18 

OUT 

(CHDREGliA 


F966' 

11 0000 

LD 

DEiO 

5 INITIALIZE TIHER COUNT 

F969' 

ED 53 FFA6' 

LD 

(TIHCNT)iDE 


F96D' 

3E 32 

LD 

Ai50 

i DELAY FOR 50 HSEC 

F96F’ 


TIHLPS 



F96F' 

CD FD60’ 

CALL 

DELAY 


F972’ 

3D 

DEC 

A 


F973' 

20 FA 

JR 

NZiTIHLP 


F975' 

ED 5B FFA6' 

LD 

DEi(TIHCNT) 

i GET TIHER COUNT 

F979' 

7A 

LD 

AiD 

i SHOULD BE NON ZERO 

F97A' 

B3 

OR 

E 


F97B' 

20 07 

JR 

NZiREBOOT 


F97D‘ 

F3 

DI 

I DISABLE FURTHER INTERRUPT 

F97E' 

3E 08 

LD 

A 1 O 8 H 

? SET ERROR BIT 

F980' 

ED 47 

LD 

IiA 


F982' 

18 33 

JR 

INDBAD 


F98r 


REBOOT} 



F981' 

3E 01 

LD 

AiDSKA 

i SELECT DRIVE A 

F986' 

CD FAA5' 

CALL 

CHECK 


F989' 


BOOTl} 












HACRO-80 3.M 

09-0ec-81 PAGE 

1-30 


F989' 

B7 

OR 

A 


F98A’ 

28 18 

JR 

ZfLOCAL 

1 ERROR IF BOOT FAILURE 

F98C' 

CD FA60' 

CALL 

SPEED 

} CHECK DRIVE SPEED 

F98F' 

B7 

OR 

A 


F990' 

20 15 

JR 

NZfLOCAL 

} BRANCH IF ERROR 

F992' 


B00T21 



F992' 

3E 01 

LD 

Afl 

* SECTOR 1 

F991' 

D3 12 

OUT 

(FDSEOfA 


F996' 

06 OA 

LD 

BfRETRY 

t SET UP MAXIMUM RETRY 

F998' 


B00T31 



F998' 

3E 82 

LD 

ArRDCHD 

; SET FOR READ 

F99A' 

21 0080 

LD 

HLiBUF 

} SET DMA 

F99D' 

CD FC78' 

CALL 

FDRUS 

} READ BOOT SECTOR 

F9A0' 

E6 9E 

AND 

RDERR 


F9A2' 

CA 0080 

JP 

Z»BUF 

» JUMP TO BOOT SECTOR IF NO ERROR 

F9A5' 

10 FI 

DJHZ 

BOOTS 

; RETRY 

F9A7' 


LOCAL} 



F9A7' 

3E 00 

LD 

AfRSCHD 

; GET RESTORE COMMAND 

F9A9' 

CD FD06' 

CALL 

TYPEl 


F9AC' 

OD 21 F7D8' 

LD 

IXfBOOTERR 

t PRINT OUT BOOT ERROR MESSAGE 

F9B0' 

CD F81E' 

CALL 

OUTMSG 


F9B3' 

3E 10 

LD 

ArlOH 

i SET ERROR BIT 

F9B5' 

ED 47 

LD 

I>A 


F9B7' 


IHDBADt 



F9B7' 

ED 57 

LD 

A>I 

} GET ERROR INDICATOR 

F9B9' 

11 0200 

LD 

DE>0200H 

; SET FOR B BLINK A OFF 

F9BC' 

CB 47 

BIT 

OfA 

f CHECK IF PVTC ERROR 

F9BE' 

20 28 

JR 

NZ.FLASH 


F9C0' 

11 0301 

LD 

DE>0301H 

5 SET FOR B BLINK A ON 

F9C3* 

CB 4F 

BIT 

1>A 

* CHECK IF DISPLAY RAM ERROR 

F9C5' 

20 21 

JR 

NZtFLASH 


F9C7' 

11 0300 

LD 

DEfOSOOH 

* SET FOR A AND B BLINK 

F9CA’ 

CB 57 

BIT 

2>A 

f CHECK IF MEMORY ERROR 

F9CC' 

20 lA 

JR 

NZ>FLASH 


F9CE' 

11 0303 

LD 

DE>0303H 

; SET FOR A AND B ON 

F9Di' 

CB 5F 

BIT 

3>A 

? CHECK IF TIMER ERROR 

F9D3' 

20 13 

JR 

NZfFLASH 


F9D5' 

11 0102 

LD 

DErOlOZH 

} SET FOR A AND B ALTERNATE BLINK 

F9D8' 

CB 67 

BIT 

4»A 

f CHECK IF DISK ERROR 

F9DA' 

20 OC 

JR 

NZfFLASH 


F9DC' 

11 0302 

LD 

DE>0302H 

} SET FDR A BLINK B ON 

F9DF' 

CB 6F 

BIT 

5>A 

; CHECK IF INTERRUPT LINE ERROR 

F9E1' 

20 05 

JR 

NZrFLASH 


F9E3' 

11 0000 

LD 

DEtOOOOH 

? SET FOR A AND B ON 

F9E6' 

18 00 

JR 

FLASH 




f 

t MANIPULATION OF LED TO INDICATE ERROR CONDITIONS 

4 

F9E8' 


f 

FLASH} 



F9E8' 

7A 

LD 

AiD 


F9E9' 

D3 18 

OUT 

(CMDREG)rA 

J SET STATE 1 

F9EB' 

01 0000 

LD 

BCfO 


F9EE' 


FLASHl} 



F9EE' 

10 FE 

DJNZ 

FLASHl 


F9F0' 

OD 

DEC 

C 


F9Fr 

20 FB 

JR 

NZiFLASHl 

; DELAY LOOP 
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F9F3' 

7B 

LD 

ArE 


F9F1’ 

D3 18 

OUT 

(CHDREG)>A 

f SET STATE 2 

F9F6‘ 


FLASH25 



F9F6' 

10 FE 

DJNZ 

FLASH2 


F9F8' 

OD 

DEC 

C 


F9F9' 

20 FB 

JR 

NZrFLASH2 

i DELAY LOOP 

F9FB' 

DB 09 

IN 

Aj(KEYBST) 

f GET KEYBOARD STATUS 

F9F0' 

E6 OF 

AND 

KEYBHK 

f CHECK IF KEY PRESSED 

F9FF' 

28 E7 

JR 

Z»FLASH 

f REPEAT FLASH IF NOT 

FAOl' 

DB 08 

IN 

A>(KEYBDA) 

f GET KEY PRESSED 

FA03' 

FE 00 

CP 

PVTCRO 

i CHECK IF DISPLAY RAH READ TEST 

FA05' 

28 U 

JR 

Z»VDORDO 


FA07' 

FE 01 

CP 

PVTCHO 

; CHECK IF DISPLAY RAH WRITE TEST 

FA09' 

28 31 

JR 

ZfVDONRO 


FAOB' 

FE 09 

CP 

PVTCRl 

> CHECK IF TEST ON BANK 1 

FAOD' 

28 1C 

JR 

ZfVDORDl 


FAOF' 

FE OA 

CP 

PVTCHl 


FAll' 

28 23 

JR 

ZfVDOHRl 


FA13' 

FE 02 

CP 

RAHRD 

} CHECK IF HEHORY READ TEST 

FA15' 

28 38 

JR 

ZrHEKRD 


FA17’ 

FE 03 

CP 

RAHNR 

J CHECK IF HEHORY WRITE TEST 

FA19' 

28 3E 

JR 

ZrHEHHR 


FAIB' 

18 CB 

JR 

FLASH 

» OTHERWISE REPEAT FLASH 


READ FROM VIDEO RAH CONTINUOUSLY 


f 


FAID' 


VDORDOJ 



FAID' 

3E AC 

LD 

A»RDCUR 

} READ AT CURSOR POSITION 

FAIF' 

D3 01 

OUT 

(VTCCHD)>A 


FA21' 


VDORDL! 



FA21' 

DB 01 

IN 

AfCVTCSTA) 


FA23' 

E6 20 

AND 

VTCRDY 


FA25' 

28 FA 

JR 

ZiVDORDL 

i WAIT UNTIL READY 

FA27' 

DB OD 

IN 

A,(VTIDAT) 

; READ IN DATA 

FA29' 

18 F2 

JR 

VDORDO 

; REPEAT PROCESS 


> 

i READ FROH VIDEO RAH BANK 1 

t 


FA2B' 


VDORDl! 


FA2B' 

21 0180 

LD 

HLfVTCBEG+IOOH » SET CURSOR TO BANK 1 

FA2E' 

7D 

LD 

A»L 

FA2F' 

D3 01 

OUT 

(VTCCUDrA 

FASr 

7C 

LD 

AfH 

FA32' 

D3 05 

OUT 

(VTCCU2)»A 

FA31' 

18 E7 

JR 

A 

VDORDO 



* 

? WRITE TO VIDEO RAH BANK 1 

FA36' 


t 

VDOWRi: 


FA36' 

21 0180 

LD 

HL»VTCBEG+100H i SET CURSOR TO BANK 1 

FA39' 

7D 

LD 

AtL 

FA3A' 

D3 01 

OUT 

(VTCCU1)»A 

FA3C' 

7C 

LD 

AfH 

FA3D' 

D3 05 

OUT 

(VTCCU2)jA 


t 

f WRITE TO VIDEO RAH CONTINOUSLY 
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FA3F’ VDOHROl 


FA3F‘ 

3E A5 


LD 

AfTSTPAT 


FAir 

D3 1C 


OUT 

(VTODAT)»A 

i WRITE OUT DATA 

FA13' 

3E AA 


LD 

AfWRCUR 


FA15' 

D3 01 


OUT 

(VTCCHD)»A 


FA17' 


VD0HRL5 




FA17' 

DB 01 


IH 

Af(VTCSTA) 


FA19' 

E6 20 


AND 

VTCRDY 


FA1B' 

28 FA 


JR 

Z?VDOHRL 

} WAIT UNTIL READY 

FA1D' 

18 FO 

1 

JR 

VDOHRO 

» REPEAT PROCESS 



f 

f 

READ FROH HEHORY CONTINOUSLY 

FA1F' 


i 

HEHRD'. 




FA1F' 

3E A5 


LD 

AfTSTPAT 


FA5i' 

32 FFFF 


LD 

(KEHEND)fA 

} WRITE PATTERN TO HEHORY 

FA51' 


HEMRD15 




FA51' 

3A FFFF 


LD 

AfCHENEND) 


FA57' 

18 FB 


JP 

NEHRDl 

: READ BACK FOREVER 



f 

? 

WRITE TO HEMORY CONTINOUSLY 

FA59- 


? 

MEHMR1 




FA59' 

3E A5 


LD 

AfTSTPAT 


FA5B' 

32 FFFF 


LD 

(HEHEND)fA 


FA5E' 

18 F9 


JR 

HENWR 

1 WRITE PATTERN TO HEHORY 



? 

♦ 

DISK 

DRIVE SPEED TEST 


FA60' 


t 

SPEED! 




FA60' 

IE OC 


LD 

EfRSCHD+VERIFY+HDLOAD 

FA62’ 

3A FFDl' 


LD 

Af(STEPS) 

f set stepping rate 

FA65' 

B3 


OR 

E 


FA66' 

CD FD06’ 


CALL 

TYPEl 

} restore the drive 

FA69' 

06 05 


LD 

Bf5 

f SET TO WAIT FIVE TURNS AFTER SYNC 

FA6B' 

DB 18 

STUP05 

IN 

Af(STAREG) 

t GET STATUS 

FA6D' 

E6 10 


AND 

10H 

J CHECK INDEX BIT 

FA6F' 

28 FA 


JR 

ZfSTUPO 

f LOOP UNTIL INDEX=1 

FA71‘ 

DB 18 

STUPl! 

IN 

Af(STAREG) 


FA73' 

E6 10 


AND 

10H 


FA75' 

20 FA 


JR 

NZfSTUPl 

; LOOP UNTIL INDEX=0 

FA77' 

10 F2 


DJNZ 

STUPO 


FA79' 

21 0001 


LD 

HLfl 

; INITIALIZE HEASURED VALUE 

FA7C' 

DB 18 

HEASO! 

IN 

Af(STAREG) 

m T'S 

FA7E' 

E6 10 


AND 

10H 

57 T'S 

FA80' 

28 FA 


JR 

ZfHEASO 

57/12 TfS 

FA82' 

DB 18 

HEASIS 

IN 

Af(STAREG) 

5 START COUNTING WHEN LOW TO HIGH 

FA81' 

E6 10 


AND 

10H 


FA86' 

23 


INC 

HL 16 T'S 


FA87' 

20 F9 


JR 

NZfHEASl 


FA89' 

DB 18 

HEAS2! 

IN 

Af(STAREG) 

5 CONTINUE COUNT UNTIL NEXT LOW TO HIGH 

FA8B' 

E6 10 


AND 

10H 

5 TRANSITION 

FA8D' 

23 


INC 

HL f INCREHENT COUNT 

FA8E' 

28 F9 


JR 

ZfHEASZ 


FA90' 

E5 


PUSH 

HL f SAVE VALUE FOR LATER 


> SAVE VALUE FOR LATER 
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FA91' 

11 5511 

LD 

DEjSPDLB 5 GET LONER BOUND 

FA9r 

AF 

XOR 

A 

FA95' 

ED 52 

SBC 

hl»de 

FA97' 

El 

POP 

HL ? RETRIEVE MEASURED VALUE 

FA98' 

38 08 

JR 

C.SPDERR f ERROR IF LESS THAN 

FA9A' 

11 5B8A 

LD 

DEjSPDUB 5 GET UPPER BOUND 

FA9D' 

AF 

XOR 

A 

FA9E' 

ED 52 

SBC 

HLfDE 

FAAO' 

38 02 

JR 

C.SPDRET : ERROR IF GREATER THAN 

FAA2' 


spderr; 


FAA2' 

3E FF 

LD 

A.OFFH f SET ERROR INDICATION 

FAAr 


SPDRETl 


FAA1' 

C9 

RET 

* 




ixxixiiixstxKixsxxxxiiixKxxiKxxxximaxxmxxixxxixxixmimixxm 



f 

} CHECK 

TEST CONFIGURATION OF DISKETTE IN DRIVE SPECIFIED 



f 

i in: 

A - BIT 0 = 1 - DRIVE A 



A 

i 

BIT 1 = 1- DRIVE B 



i out: 

A = 0 IF ERROR 



« 

f 

ELSE = SELECT BYTE 




b7 - 6 NOT USED 



« 

f 

b5 0 = SSIDE 1 = DSIDE 



f 

b4 - 2 NOT USED 



i 

bl - 0 DRIVE NUMBER 



5 REG(S) HODIFIED: A 

A 

FAA5' 


f 

check: 


FAA5' 

D5 

PUSH 

DE } SAVE REGISTERS 

FAA6' 

E5 

PUSH 

HL 

FAA7' 

E6 03 

AND 

DSK » MASK OUT UNNECESSARY INFORMATION 

FAA9' 

CD FC62' 

CALL 

DSKSEL : SELECT DRIVE 

FAAC 


chklp: 


FAAC 

3E OC 

LD 

AjRSCMD+HDLOAD+VERIFY 

FAAE' 

IE 03 

LD 

EiSLOSTP 

FABO’ 

B3 

OR 

E 

FABl' 

CD FD06' 

CALL 

TYPEl t RESTORE R/N HEAD 

FAB4' 

CB 7F 

BIT 

EXPTIMfA f CHECK IF TIMED OUT 

FAB6' 

20 F4 

JR 

NZfCHKLP J TRY AGAIN 

FABB- 

E6 98 

AND 

RSERR 

FABA' 

20 33 

JR 

NZfCHKERR J BRANCH IF ERROR 

FABC 

3A FFD3' 

LD 

A.(SELBYT) f OBTAIN SELECT BYTE 

FABF' 

CB D7 

SET 

SIDEhA .SELECT SIDE 1 

FACr 

CD FC62' 

CALL 

DSKSEL 

FAC4’ 

21 0080 

LD 

HL.BUF .READ ADDR INTO BUF 

FAC7' 

3E CO 

LD 

A.RACHD .SET UP READ ADDR COMMAND 

FAC9' 

CD FC78‘ 

CALL 

FDRHS JREAD ADDR FOR VERIFICATION 

FACC 

B7 

OR 

A 

FACD* 

20 20 

JR 

NZ.CHKERR i BRANCH IF ERROR 

FACF' 

21 0081 

LD 

HL.BUF+1 } POINT TO SIDE NUMBER 

FAD2' 

7E 

LD 

A.(HL) 

FAD3' 

B7 

DR 

A i CHECK IF SIDE 0 

FAD1' 

3A FFD3‘ 

LD 

A.(SELBYT) 

FAD7' 

20 04 

JR 

NZ.DSIDES } DOUBLE SIDED IF NOT 

FAD9' 

CB AF 

RES 

DSIDE.A JSINGLE-SIDED 
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FADB' 

18 04 

JR 

CHKSAV 


FADD' 


DSIDESi 



FADD' 

IE 00 

LD 

EjDSSTEP 

5 SET STEPPING RATE 

FADF' 

CB EF 

SET 

DSIDErA 

{DOUBLE-SIDED 

FAEl' 


CHKSAVJ 



FAEl' 

CB 97 

RES 

SIDEliA 

{SELECT SIDE 0 

FAE3‘ 

CD FC62' 

CALL 

DSKSEL 


FAE6' 

7B 

LD 

ArE 


FAE7’ 

32 FFDl' 

LD 

(STEPS)jA 

{ SAVE STEPPING RATE 

FAEA' 

3A FFD3' 

LD 

A»(SELBYT) 


FAED' 

18 01 

JR 

CHKRET 


FAEF- 


CHKERR5 



FAEF' 

97 

SUB 

A » 

SET ERROR RETURN 

FAFO' 


CHKRETJ 



FAFO' 

El 

POP 

HL i 

RESTORE REGISTERS 

FAFl' 

D1 

POP 

DE 


FAF2' 

C9 

RET 

A 





f 

ORG 

4 

OFBOOH 




f 

f INTERRUPT VECTORS 


FBOO' 

FB96' 

t 

dskdrq: dh 

FDIN 

{ DISK DATA REQUEST 

FB02’ 

FBA2' 

DSKENDl DN 

FDEND 

{ DISK COHHAND END 

FB04' 

FBBA' 

PVTCI5 DM 

TVREG 

{ PVTC INTERRUPT 

FB06' 

FBIO' 

DN 

UNIHP 

{ KEYBOARD INTERRUPT 

FB08' 

FB12' 

TIHERIl DH 

TIHITR 

{ PRINTER INTERRUPT 

FBOA' 

FBIO' 

DN 

UNIHP 


FBOC 

FBIO' 

DN 

UNIHP 


FBOE' 

FBIO' 

DN 

UNIHP 



> 

; UN-IHPLEHENTED HANDLER 

I 

f 


FBIO' UNIHP5 


FBIO' 

FB 

El 


FBll' 

C9 

RET 

{ DUHHY INTERRUPT HANDLER 


TIHER INTERRUPT HANDLER 


FB12' TIHITR 

FBi2‘ ED 73 FFA4' 

FB16' 31 FFB3' 

FB19' F5 

FBIA' E5 

FBIB' D5 

FBIC 3A FFE2‘ 

FBIF' CB AF 

FB21' D3 18 

FB23' 3A FFE2' 

FB26' D3 18 

FB28' FB 

FB29' 2A FFCF’ 

FB2C' 23 

^ FB2D' 22 FFCF' 

FB30' 2A FFA6‘ 

FB33' 23 


« 

LD (TIHSTK)»SP » SAME CURRENT STACK POINTER 

LD SP»STKTIH 5 SET UP LOCAL STACK 

PUSH AF f SAVE REGISTERS 

PUSH HL 

PUSH DE 

LD ArdOREG) 

RES TIHERjA i RESET TIHER 

OUT (CHDREG)»A 

LD AfdOREG) 

OUT (CHOREG)fA 

El ; RE-ENABLE INTERRUPT 

LD HL»(TIHCTR) ? INCREHENT GENERAL COUNTER 

INC HL 

LD (TIHCTR)»HL 

LD HLfdIHCNT) 

INC HL 


5 INCREHENT TIHER COUNT 
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FB31' 

22 FFA6' 

LD 

(TIHCNT)fHL 



FB37’ 

3A FFA8' 

LD 

Af(RPTFLG) 

# 

CHECK IF REPEAT TEST REQUIRED 

FB3A' 

B7 

OR 

A 



FB3B' 

28 4E 

JR 

ZJINIRT 

f 

RETURN IF NOT 

FB3D' 

ED 5B FF96' 

LD 

DE»(DLYCTR) 

f 

GET DELAY LIMIT 

FB41' 

AF 

XOR 

A 



FB12' 

ED 52 

SBC 

HLfDE 

* 

i 

CHECK IF TIME REACHED YET 

FB11’ 

38 45 

JR 

C.TIHIRT 

* 

f 

RETURN IF NOT 

FB16' 

3A FFA9' 

LD 

A»(TSTFLG) 

i 

CHECK IF REPEAT TEST IN PROGRESS 

FB19‘ 

B7 

OR 

A 



FB1A' 

20 2C 

JR 

NZjPOLL 



FB4C' 

DB 09 

IN 

A»(KEYBST) 

* 

f 

CHECK IF KEY HIT RIGHT ON BOUNDARY 

FB4E' 

E6 OF 

AND 

KEYBMK 



FB50' 

20 35 

JR 

NZjKEYHIT 



FB52' 

3A FFE2' 

LD 

Af(IOREG) 

t 

GET COMMAND REGISTER CONTENT 

FB55' 

CB FF 

SET 

KBDENA?A 

i 

DISABLE KEYBOARD SCANNER 

FB57’ 

D3 18 

OUT 

(CHDREG)tA 



FB59' 


HAITLO; 




FB59' 

DB 18 

IN 

Af(STAREG) 

A 

f 

WAIT UNTIL BIT 7 GO LOW 

FB5B' 

CB 7F 

BIT 

KBDENAfA 



FB5D' 

20 FA 

JR 

NZtHAITLO 



FB5F' 

3A FFE2' 

LD 

Ar(IOREG) 

J 

ENABLE KEYBOARD SCANNER 

FE62' 

D3 18 

OUT 

(CHDREG)jA 



FB64' 

3E FF 

LD 

AjOFFH 

i 

SET REPEAT TEST IN PROGRESS 

FB66' 

32 FFA9' 

LD 

(TSTFLG).A 



FB69' 

11 0002 

LD 

DE»2 

? 

SET DELAY COUNT FOR TNO CYCLES 

FB6C' 

ED 53 FF96' 

LD 

(DLYCTR)»DE 



FB70’ 

21 0000 

LD 

HL»0 



FB73' 

22 FFA6' 

LD 

(TIHCNT)fHL 

A 

f 

RE-INITIALIZE TIMER COUNT 

FB76' 

18 13 

JR 

TIHIRT 

f 

AND RETURN 

FB78' 


POLL} 




FB78' 

AF 

XOR 

A ; RESET 

TEST IN PROGRESS FLAG 

FB79' 

32 FFA9' 

LD 

(TSTFLG)»A 



FB7C' 

DB 09 

IN 

A»(KEYBST) 

J 

CHECK KEYBOARD STATUS 

FB7E' 

E6 OF 

AND 

KEYBMK 



FB80' 

28 05 

JR 

Z>KEYHIT 

A 

f 

BRANCH IF NOT READY 

FB82' 

3E FF 

LD 

AfOFFH 

A 

f 

SET AUTO REPEAT MODE 

FB84' 

32 FFAA' 

LD 

(AUTFLG)»A 



FB87' 


keyhit: 




FB87' 

AF 

XOR 

A J DE-ACTI9ATE REPEAT TEST 

FB88' 

32 FFA8' 

LD 

(RPTFLG)rA 



FB8B' 


TIHIRT} 




FB8B' 

D1 

POP 

DE 



FB8C' 

El 

POP- 

HL 



FB8D' 

FI 

POP 

AF 



FB8E' 

ED 7B FFA4' 

LD 

SP»(TIMSTK) 



FB92' 

C3 FB95' 

JP 

THIRET 

f 

JUMP VECTOR FOR 3R0 PARTY ROUTINE 

FB95' 


THIRET} 




FB95' 

C9 

RET 





5 FLOPPY DISK INPUT HANDLER 

A 

i 


FB96' 


fdin: 


FB96' 

08 

EX 

AFfAF 

FB97' 

ED A2 

INI 


FB99’ 

08 

EX 

AF»AF 
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FB9A' 

FB 


El 


FB9B' 

C9 

« 

RET 




f 

A 

f 

FLOPPY 

DISK OUTPUT HANDLER 

FB9C' 


f 

fdout; 



FB9C' 

08 


EX 

AF»AF' 

FB9D’ 

ED A3 


OUTI 


FB9F' 

08 


EX 

AF»AF’ 

FBAO' 

FB 


El 


FBAl' 

C9 

* 

RET 




i 

5 

FLOPPY 

DISK COMMAND COMPLETION HANDLER 

FBA2‘ 


f 

FDEHDJ 



FBA2' 

08 


EX 

AF*AF‘ } SAVE FLAGS 

FBA3' 

DB 10 


IN 

At(FDSTAT) ; CLEAR INTERRUPT 

FBA5' 

3E 01 


LD 

All 

FBA7' 

32 FFFF' 


LO 

(DSKFIN)iA i SET COMMAND END INDICATOR 

FBAA' 

08 


EX 

AFiAF' i RESTORE FLAGS 

FBAB' 

FB 


El 


FBAC 

C9 


RET 




t 

} 

A 

HARD DISK INPUT/OUTPUT HANDLER 

FBAD' 


t 

HDIO: 



FBAD' 

FB 


El 

I RE-ENABLE INTERRUPT 

FBAE' 

C9 

4 

RET 



HARD DISK COHHAND COHPLETION HANDLER 


f 


FBAF' 


HDEND! 




FBAF' 

08 


EX 

AFiAF' 

i SAME FLAGS 

FBBO' 

DB 37 


IN 

Ai(HDSTAT) 

i CLEAR INTERRUPT 

FBB2' 

3E 01 


LD 

All 


FBBT' 

32 FFFF' 


LD 

(DSKFIN)iA 

i SET COMMAND END INDICATOR 

FBB7' 

08 


EX 

AFiAF' 

i RESTORE FLAGS 

FBB8' 

FB 


El 



FBB9' 

C9 

A 

RET 





f 

} 

NORMAL PVTC 10 COLUMN INTERRUPT 

FBBA' 


t 

TMREG5 




FBBA’ 

ED 73 FF9D' 


LD 

(STKSAM)iSP 

i SAVE STACK POINTER 

FBBE' 

31 FFBB' 


LD 

SPiSTKBAS 


FBCr 

F5 


PUSH 

AF 


FBC2‘ 

DB 01 


IN 

Ai(VTCSTA) 

i GET STATUS 

FBC1‘ 

E6 18 


AND 

INTMSK 

i SET UP FOR RESET 

FBC6’ 

F6 10 


OR 

RSTMSK 


FBC8' 

D3 01 


OUT 

(VTCCMD)iA 


FBCA' 

D5 


PUSH 

DE } SAME REGISTERS 

FBCB‘ 

DD E5 


PUSH 

IX 


FBCD' 

DD 21 FBD3' 


LO 

IXiTVREGRT 

i SET RETURN ADDRESS 

FBDl' 

18 23 


JR 

TVCOMM 

i GO TO COMMON HANDLER 

FBD3' 


tvregrt; 



FBD3' 

DD El 


POP 

IX i RESTORE REGISTERS 
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FBD5‘ 

D1 


POP 

DE 


FBD6' 

FI 


POP 

AF 


FBD7' 

ED 7B FF9D’ 


LD 

SPr(STKS/W) 

r GET ORIGINAL STACK ADDRESS 

FBDB' 

FB 


El 



FBDC 

C9 

A 

RET 





f 

f 

POTC 10 

COLUHN INTERRUPT WITH DISK I/O 

FBDD’ 


f 

tmdsk; 




FBDD' 

D9 


EXX 

} GET ALTERNATE REGISTER SET 

FBDE' 

ED 68 


IN 

Lf(C) 

r GET STATUS 

FBEO’ 

ED 11 


OUT 

(C)»B 

r RESET INTERRUPT 

FBE2' 

FB 


El 



FBE3' 

D9 


EXX 



FBEr 

D5 


PUSH 

DE 


FBE5' 

F5 


PUSH 

AF 5 SAVE REGISTER 

FBE6' 

DD E5 


PUSH 

IX 


FBE8' 

F3 


DI 



FBE9' 

D9 


EXX 

; SWITCH TO ALTERNATE REGISTER SET 

FBEA' 

22 FF9B' 


LD 

(TVSTAT)jHL 

r SAVE STATUS 

FBED' 

FB 


El 



FBEE' 

D9 


EXX 



FBEF' 

3A FF9B' 


LD 

Af(TVSTAT) 

r RETRIEVE STATUS 

FBF2' 

DD 21 FC5D' 


LD 

IXrTVDSKRT 

r SET RETURN ADDRESS 

FBF6' 


TVC0MH5 




FBF6‘ 

CB 67 


BIT 

VBITiA 

r CHECK IF VBLANK 

FBF8' 

28 IF 


JR 

ZjNOTVB 


FBFA' 

ED 5B FFD9' 


LD 

DE»(OFFSET) 

r GET CURRENT OFFSET 

FBFE' 

ED 53 FFDE' 


LD 

(OFFTHP)rDE 

r AND SAVE FOR LATER 

FC02' 

ED 5B FFD7' 


LD 

DE»(SCSTART) 

r GET CURRENT SCREEN START ADDRESS 

FC06' 

3A FFD9' 


LD 

A»(OFFSET) 


FC09' 

83 


ADD 

A>E 


FCOA' 

D3 02 


OUT 

(VTCSC1)»A 

r UPDATE SCREEN START REGISTERS 

FCOC 

3A FFDA’ 


LD 

Af(OFFSET+l) 


FCOF' 

8A 


ADC 

ArD 


FCIO’ 

03 03 


OUT 

(VTCSC2)»A 


FC12' 

3E FF 


LD 

AfOFFH 

r SET INDICATOR FOR SCROLLING 

mv 

32 FFDD' 


LD 

(VBFLAG)»A 


FC17' 

18 12 


JR 

TVCHRT 


FC19' 


N0T0B5 




FC19' 

CB 5F 


BIT 

LINED>A 

1 CHECK IF LINE ZERO 

FCIB' 

28 3E 


JR 

ZfTVCHRT 


FCID' 

11 07FF 


LD 

DEiVTCEND 

r GET DISPLAY RAH END AORESS 

FC20' 

3A FFDB' 


LD 

A»(OFFTHP) 

r CALCULATE END ADDRESS FOR COHPARISON 

FC23' 

83 


ADD 

AfE 


FC21' 

32 FF99' 


LD 

(ENDAD)rA 

r AND SAVE FOR LATER 

FC27‘ 

3A FFDC 


LD 

A»(0FFTHP+1) 


FC2A' 

8A 


ADC 

ArD 


FC2B' 

32 FF9A' 


LD 

(ENDAD+DrA 


FC2E' 

DB 02 


IN 

A»(VTCSC1) 

} COHPUTE NEXT LINE START ADDRESS 

FC30' 

IE IF 


LD 

ErMAXCOL-1 


FC32' 

83 


ADD 

ArE 


FC33' 

5F 


LD 

ErA 


FC31' 

DB 03 


IN 

Ar(VTCSC2) 


FC36' 

16 00 


LD 

DrO 


FC38' 

8A 


ADC 

ArD 
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FC39' 

57 

LO 

DfA 

FC3A' 

3A FF9A' 

LD 

Ar(ENDAD+l) } COMPARE IF MRAP AROUND 

FC3D' 

92 

SUB 

D 

FC3E' 

20 14 

JR 

NZiNOTMRA 

FC40' 

3A FF99’ 

LD 

AHENDAD) 

FC13' 

93 

SUB 

E 

FC11' 

20 OE 

JR 

NZiNOTMRA 

FM6' 

11 0080 

LO 

DEjMTCBEG » HANDLE MRAP AROUND 

FC49' 

3A FFOB’ 

LD 

A»(OFFTMP) 

FC^C 

83 

ADO 

A>E 

FC1D' 

5F 

LD 

E>A 

FME' 

3A FFDC 

LD 

Af(OFFTMP+l) 

FC51' 

8A 

ADC 

A>D 

FC52' 

57 

LD 

DrA 

FC53' 

IB 

DEC 

DE 

FC5^' 

FC54' 

13 

notmra: 

INC 

DE ? SET UP NEM SCREEN START REGISTERS 

FC55' 

7B 

LD 

ArE 

FC56' 

D3 02 

OUT 

(MTCSCDjA 

FC58' 

7A 

LD 

A>D 

FC59' 

03 03 

OUT 

(MTCSC2)»A 

FC5B' 

FC5B' 

DO E9 

tmcnrt; 

JP 

(IX) ? RETURN TO PROPER HANDLER 

FC5D' 

FC5D' 

00 El 

tvoskrt: 

POP 

IX } RESTORE REGISTERS 

FC5F' 

FI 

POP 

AF 

FC60' 

01 

POP 

DE 

FC6i' 

C9 

RET 



»xitiximmiiiKxixxxxxmxxixxxixxxxxKXKxixxixxmiixiixiii(KKXx 




f 

» 

DSKSEL 

SELECT DISK THROUGH I/O REGISTER 



f 

} 

in: 

A - SELECT BYTE 



{ 

out: 

NONE 



X 

REG(S) modified: a 

FC6Z’ 


f 

dsksel: 



FC62' 

C5 


PUSH 

BC ? SAVE REGISTERS 

FC63' 

32 FFD3' 


LD 

(SELBYT)fA : SAME SELECT BYTE 

FC66’ 

E6 07 


AND 

SELMSK } MASK OUT IRRELEVANT BITS 

FC68' 

47 


LD 

BiA 

FC69‘ 

3A FFE2' 


LD 

A>(IOREG) ; GET PREVIOUS I/O REGISTER VALUE 

FC6C' 

E6 F8 


AND 

lOMSK ? DIS-SELECT ALL DRIVE 

FC6E' 

D3 18 


OUT 

(SEL)>A 

FC70‘ 

BO 


OR 

B J SET UP NEH SELECT BYTE 

FC71' 

D3 18 


OUT 

(SEL)»A t SELECT NEM DRIVE 

FC73' 

32 FFE2' 


LD 

(IOREG)jA t SAME I/O REGISTER VALUE 

FC76' 

Cl 


POP 

BC 5 RESTORE REGISTER 

FC77' 

C9 


RET 





;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

f 

} FORMS FLOPPY DISK SECTOR I/O INTERFACE 

A 

f 

t in: 


A - COHHAND 
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HL - DHA ADDRESS 
out; a - TYPE 2 STATUS 

HL - NEXT DHA ADDRESS 
REGISTER(S) HODIFIEDI A^HiL 


FC78' 


FDRHS; 



FC78’ 

F3 

DI 

J DISABLE INTERRUPT 

FC79' 

ED 73 FFCD* 

LD 

(OSKSTK)>SP 

J SAME CURRENT STACK 

FC7D' 

31 FFCD' 

LD 

SPfSTKDSK 

5 SET UP NEH STACK 

FC80' 

D9 

EXX 

f SAME ALTERNATE REGISTER SET 

FC81' 

C5 

PUSH 

BC 


FC82' 

E5 

PUSH 

HL 


FC33’ 

06 58 

LD 

B»RSTHSK+INTHSK 

i SET UP RESET COHHAND 

FC85' 

OE 01 

LD 

CfMTCCMD 


FC87' 

D9 

EXX 



FC88' 

08 

EX 

AFrAF' 


FC89' 

F5 

PUSH 

AF 


FC8A' 

3A FFE2' 

LD 

Af(IOREG) 

; DISABLE TIHER 

FC8D' 

CB AF 

RES 

TIHER»A 


FC8F‘ 

32 FFE2' 

LD 

(lOREG)fA 


FC92' 

D3 18 

OUT 

(CHDREGlrA 


FC94' 

08 

EX 

AFfAF' 


FC95' 

C5 

PUSH 

BC 5 SAME REGISTERS 

FC96’ 

DS 

PUSH 

DE 


FC97' 

01 FB96' 

LD 

BCiFDIN 

; SET FOR INPUT HANDLER 

FC9A' 

CB 6F 

BIT 

NRCHNDrA 

; CHECK IF HRITE COHHAND 

FC9C' 

28 03 

JR 

Z»SETMEC 


FC9E' 

01 FB9C' 

LD 

BCfFDOUT 

5 SET FOR OUTPUT HANDLER 

FCAl' 


SETVEC: 



FCAl' 

ED 43 FBOO' 

LD 

(DSKDRQ)iBC 

? SET UP MECTOR 

FCA5' 

01 FBA2' 

LD 

BC>FDEND 


FCA8' 

ED 43 FB02' 

LD 

(DSKEND)rBC 


FCAC 

01 FBDD' 

LD 

BCfTMDSK 


FCAF' 

ED 43 FB04' 

LD 

(PMTCI)fBC 


FCB3' 

OE 13 

LD 

CfFDDATA 

J SET UP I/O PORT ADDRESS 

FCB5' 

47 

LD 

BfA 

; SAME COHHAND 

FCB6' 

AF 

XOR 

A 


FCB7' 

32 FFFF' 

LD 

(DSKFIN)rA 

J SET WAITING FOR COHHAND TO COHPLETE 

FCBA' 

57 

LD 

D;A 

i SET UP SOFTWARE TIHER 

FCBB' 

5A 

LD 

EfD 


FCBC 

3E 28 

LD 

A»40 


FCBE' 

32 FF98' 

LD 

(DLYCNT)»A 


Fccr 

78 

LD 

A>B 

5 RETRIEME COHHAND 

FCC2' 

FB 

El 

; HAKE SURE INTERRUPT IS ENABLED 

FCC3' 

D3 10 

OUT 

(FDCHD)»A 

* SEND COHHAND TO CONTROLLER 

FCC5' 


FDRHLP; 



FCC5' 

3A FFFF' 

LD 

A»(DSKFIN) 

J GET COHHAND STATUS INDICATOR 

FCC8' 

IF 

RRA 

f WAIT UNTIL COHHAND FINISH 

FCC9' 

38 lA 

JR 

CfRHFIN 


FCCB' 

ID 

DEC 

E 


FCCC 

C2 FCC5' 

JP 

NZfFDRHLP 


FCCF’ 

15 

DEC 

D 


FCDO' 

C2 FCC5' 

JP 

NZfFDRHLP 


FCD3' 

3A FF98' 

LD 

Ar(DLYCNT) 


FCD6' 

3D 

DEC 

A 


FCD7' 

32 FF98' 

LD 

(DLYCNT)jA 
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FCDA- 

C2 FCC5' 

JP 

NZtFDRWLP 


FCDO* 

3E DO 

LD 

AiFITRPT 

; CANCEL COMMAND 

FCDF' 

03 10 

OUT 

(FDCH0)»A 


FCEr 

3E 30 

LD 

AfTIHEXP 

? SET FOR TIMED OUT ERROR 

FCE3' 

18 02 

JR 

FDRHRT 


FCE5' 


RHFINl 



FCE5' 

OB 10 

IH 

Aj(FDSTAT) 

i GET STATUS 

FCE7' 


FDRHRT! 



FCE7' 

01 FBBA' 

LD 

BC»TVREG 

? RESET TO NORMAL PMTC 10 COL. HANDLING 

FCEA' 

ED 13 FB01' 

LD 

(PVTCDjBC 


FCEE' 

01 

POP 

DE 


FCEF’ 

Cl 

POP 

BC t RESTORE REGISTERS 

FCFO' 

08 

EX 

AF»AF' 


FCFl' 

3A FFE2' 

LD 

Ar(lOREG) 

; RE-ENABLE TIMER 

FCF1’ 

CB EF 

SET 

TIHERfA 


FCF6' 

32 FFE2' 

LD 

(IOREGIjA 


FCF9' 

03 18 

OUT 

(CHDREG)>A 


FCFB" 

FI 

POP 

AF 


FCFC 

08 

EX 

AFjAF' 


FCFO' 

09 

EXX 

5 RESTORE ALTERNATE REGISTER SET 

FCFE’ 

El 

POP 

HL 


FCFF' 

Cl 

POP 

BC 


FDOO' 

09 

EXX 



FDOr 

ED 7B FFCD' 

LD 

SPf(OSKSTK) 

5 RETRIEVE PREVIOUS STACK 

FD05' 

C9 

RET 




t 

ixixxmxxxxxxxxtxxxiixiixiiimixxxxixxxixixxxixKxmixxixxxim 




f 

5 

TYPEl 

HANDLE ALL TYPE I COMMAND FOR FLOPPY CONTROLLER 



j 

INJ 

A - TYPE I COMMAND 



* 

i 

out; 

A - TYPE I STATUS 



} 

REG(S) modified: 

A 

FD06‘ 


5 

TYPEIJ 




FD06' 

ED 73 FFCD' 


LD 

(DSKSTKl.SP 


FDOA' 

31 FFCD' 


LD 

SPfSTKDSK 


FOOD' 

08 


EX 

AF»AF' 


FDOE' 

F5 


PUSH 

AF 


FOOF’ 

08 


EX 

AF»AF' 


FDIO' 

D5 


PUSH 

DE ? SAVE REGISTERS 

FDir 

C5 


PUSH 

BC 


FD12' 

F5 


PUSH 

AF ; SAVE COMMAND 

FD13' 

3E 02 


LD 

A;2 

J 2 MS DELAY 

FD15' 


TYPE12J 




FD15' 

CD FD60' 


CALL 

DELAY 


FD18' 

3D 


DEC 

A 


FD19' 

C2 FD15' 


JP 

NZjTYPE12 


FDIC 

11 FBA2' 

i 

LD 

DEfFOEND 

; SET UP INTERRUPT VECTOR 

FDIF' 

ED 53 FB02' 


LD 

(DSKEND)fDE 


FD23' 

57 


LD 

DrA 

J SET UP SOFTWARE TIMER 

FD21’ 

5F 


LD 

ErA 


FD25' 

OE 50 


LD 

Ct80 


FD27' 

32 FFFF* 


LD 

(DSKFIN)»A 


FD2A' 

FI 


POP 

AF ; RESTORE COMMAND 
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F02B' 

17 

LD 

BrA 


FD2C' 

AF 

XOR 

A ! 

CLEAR CARRY FLAG 

FD2D' 

78 

LD 

A>B 


FD2E' 

FB 

El 

t 

HAKE SURE INTERRUPT IS ENABLED 

FD2F' 

D3 10 

OUT 

(FDCHD)fA 

F ISSUE TYPE 1 COHHAND 

FD31' 


TYPElOl 



FD31' 

3A FFFF' 

LD 

A»(DSKFIN) 

F CHECK COHHAND STATUS INDICATOR 

F031' 

IF 

RRA 



FD35' 

38 11 

JR 

CfTYPEll 


FD37' 

ID 

DEC 

E 


FD38‘ 

C2 FD31' 

JP 

NZJYPEIO 


FD38' 

15 

DEC 

D 


FD3C* 

C2 FD31' 

JP 

NZfTYPElO 


F03F' 

OD 

DEC 

C 


FD10' 

C2 FD31’ 

JP 

NZjTYPEIO 


FD13' 


timout; 



FD13' 

3E DO 

LD 

AfFITRPT 

F CANCEL COHHAND 

F015* 

D3 10 

OUT 

(FDCHD)>A 


FD17' 

3E 80 

LD 

AfTIHEXP 

F SET ERROR 

FD19' 

18 OB 

JR 

TYPE15 


FD1B' 


f 

TYPEli; 



FD1B' 

3E 10 

LD 

Af16 

f16 HS delay 

FD1D' 


TYPE13} 



FD1D' 

CD FD60' 

CALL 

DELAY 


FD50' 

3D 

DEC 

A 


FD51' 

C2 FDID' 

JP 

NZfTYPE13 


FD51' 

DB 10 

f 

IN 

Af(FDSTAT) 


FD56' 


TYPE15: 



FD56' 

Cl 

POP 

BC J 

RESTORE REGISTERS 

FD57' 

D1 

POP 

DE 


FD58' 

08 

EX 

AFfAF' 


FD59' 

FI 

POP 

AF 


FD5A' 

08 

EX 

AFfAF' 


FD5B' 

ED 7B FFCD' 

LD 

SPf(DSKSTK) 

FD5F' 

C9 

RET 





T 

tiKxixixKXxxixiKxxxxxKKxiiixixxmixiKxxmimiiimxxxiKxmxxi 



♦ DELAY 

DELAY FOR 1 HINI-SECOND 



5 

i IN! 

NONE 




? OUT! 

NONE 




; REG(S) HODIFIED! 

NONE 

FD60' 


f 

DELAY! 



FD60' 

C5 

PUSH 

BC 


FD61' 

06 01 

LD 

BfI 


FD63' 


DLl! 



F063' 

OE FF 

LD 

CfOFFH 


FD65' 


DLO! 



F065' 

OD 

DEC 

C 


FD66' 

C2 FD65' 

JP 

NZfDLO 


FD69' 

05 

DEC 

B 


FD6A' 

C2 FD63' 

JP 

NZfDLI 







HftCRO-80 3.14 09-Dec-81 


PAGE 1-12 



FD6D‘ Cl POP BC 

FD6E' C9 RET 

f 

IXXIIXIXXXXlIIIXSXXIXXlXIXXIXXXIXIKXXIIIKIlXXlXmimillllllllXl 

J 

i HDHOHE HARD DISK RESTORE 
5 

♦ INJ A - COHHAND 

f OUT} A - 0 IF NO ERROR 

; - ERROR REGISTER CONTENT OTHERHISE 


FD6F' 


HDHOHE} 



FD6F' 

D5 

PUSH 

DE } 

SAVE REGISTERS 



i LD 

DErHDEND 

} POINT TO HANDLER 



; LD 

(DSKEND)jDE ? PUT INTO VECTOR 



f PUSH 

AF ; 

SAVE COHHAND 



i XOR 

A 




; LD 

(DSKFIN)>A 

1 } SET COHHAND STATUS TO HAIT 



> LD 

D>A 

; SET UP SOFTWARE TIHER 



} LD 

EiA 




f POP 

AF ; 

RETRIEVE COHHAND 



} El 

i 

HAKE SURE INTERRUPT IS ENABLED 



? OUT 

HDCHDrA 

t SEND OUT COHHAND 



JHDHOHl} 





» LD 

A>(DSKFIN) 

» CHECK IF COHHAND FINISH 



} OR 

A 




i JR 

NZ>HDH0H2 




} DEC 

DE } 

DOWN COUNT SOFTWARE TIHER 



5 LD 

AfD 




? OR 

E 




f JR 

NZfHDHOHl 




; LD 

AfTIHEXP 

? SET TIHED OUT ERROR 



} JR 

HDHDH3 




1HDH0H2} 



FD70‘ 

D3 37 

OUT 

(HDCHD)>A 

; SEND OUT COHHAND 

FD72' 


HDHOHl} 



FD72' 

DB 37 

IN 

Af(HDSTAT) 

} WAIT UNTIL COHHAND FINISH 

FD71' 

CB 7F 

BIT 

7,A 


FD76' 

28 FA 

JR 

ZfHDHOHl 


FD78' 


HDH0H2} 



F078' 

DB 37 

IN 

A.(HDSTAT) 


FD7A' 

CB 7F 

BIT 

7»A 


FD7C' 

20 FA 

JR 

NZ>HDH0H2 


FD7E' 

DB 37 

IN 

Af(HOSTAT) 

} GET STATUS 

FD80' 

CB 17 

BIT 

HDERRSrA 

J CHECK IF ERROR 

FD82' 

20 03 

JR 

NZ»HDH0H1 


FD81' 

AF 

XOR 

A } 

SET NO ERROR 

FD85' 

18 02 

JR 

HDHDH3 


FD87' 


HDHOHl} 



FD87' 

DB 31 

IN 

A>(HDERR) 

5 GET ERROR REGISTER CONTENT 

FD89' 


HDH0H3} 



F089' 

D1 

POP 

DE } 

RESTORE REGISTERS 

F08A' 

C9 

RET 




xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 






HDRHS 


HARD DISK INTERFACE 


INI 

out; 


FD8B' 


HDRNS: 

FD8B' 

C5 

PUSH 

FD8C' 

D5 

PUSH 

FD8D‘ 

F5 

PUSH 

FD8E' 

IE 02 

LD 

FD90' 

DB 36 

IN 

FD92' 

CB 6F 

BIT 

FD91' 

20 01 

JR 

FD96' 

ID 

DEC 

FD97' 


FIVE12; 

FD97' 

FI 

POP 



f LD 



f LD 



t LD 



* LD 

FD98' 

OE 30 

LD 



5 XOR 



» LD 



t LD 



f LD 



5 LD 



; El 



} OUT 



;hdrnlp: 



; LD 



» OR 



; JR 



f DEC 



; LD 



} OR 



; JR 



t LD 



; JR 



tHDRNEN: 

FD9A' 

D3 37 

OUT 

FD9C' 

FE 20 

CP 

FD9E' 

28 07 

JR 

FDAO' 


HDNRLP; 

FDAO' 

06 00 

LD 

FDA2' 

ED B3 

OTIR 

FDA1' 

ID 

DEC 

FDA5' 

20 F9 

JR 

FDA7' 


hdrd; 

FDA7' 

17 

LD 

FDA8' 


HDRH2: 

FDA8' 

DB 37 

IN 

FDAA' 

CB 7F 

BIT 

FDAC’ 

28 FA 

JR 


HL - BUFFER 
A - COHHAND 
A - 0 IF NO ERROR 

- ERROR REGISTER CONTENT OTHERWISE 
HL - NEXT BUFFER ADDRESS 


BC t SAVE REGISTERS 

DE 

AF i SAVE COHHAND 

Er2 i SET FOR 512 BYTES 

A»(HDSDH) i GET SELECT BYTE 

5rA 

NZ»FIVE12 

E i SET FOR 256 BYTES 

AF J RETRIEVE COHHAND 


DE>HDEND 

; POINT TO HANDLER 

(DSKEND)>DE 

t PUT INTO VECTOR 

DEfHDIO 


(DSKDRQ)rDE 


CtHDDATA 

A 

i SET UP DATA REGISTER 

H 

(DSKFIN)iA 

t SET COHHAND STATUS TO WAIT 

D>A 

i SET UP SOFTWARE TIHER 

E>A 


ArB 

; RETRIEVE COHHAND 

; HAKE SURE INTERRUPT IS ENABLED 

HDCHDrA 

; SEND OUT COHHAND 

Ar(DSKFIN) 

; CHECK IF COHHAND FINISH 


A 

NZfHDRNEN 


DE ; 

A>D 

E 

NZ^HDRWLP 

DOWN COUNT SOFTWARE TIHER 

AfTIHEXP 

HDRWRT 

? SET TIHED OUT ERROR 

(HDCHD)>A 

HDREAD 

ZiHDRD 

; CHECK IF READ 

B»0 

} SET UP COUNTER 


t SEND DATA TO CONTROLLER 
E 

NZfHDHRLP 


GrA ; SAVE COHHAND 

A»(HDSTAT) 

7»A 

ZfHDRNZ 
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FDAE' 


HDRN3: 



FDAE' 

DB 37 

IN 

Aj(HDSTAT) 


FDBO' 

CB 7F 

BIT 

7fA 


FDB2' 

20 FA 

JR 

NZ>HDRN3 


FDB1' 

78 

LD 

ArB 

J RETRIEVE COMMAND 

FOBS' 

FE 20 

CP 

HDREAD 

5 CHECK IF READ 

FDB7' 

20 07 

JR 

NZfHDNORD 


FDB9' 


hdrdlp:' 



FDB9' 

06 00 

LD 

BrO 

; SET UP COUNTER 

FDBB' 

ED B2 

INIR 

f 

GET DATA FROM CONTROLLER 

FDBD' 

ID 

DEC 

E 


FDBE’ 

20 F9 

JR 

NZjHDRDLP 


FDCO' 


hdnord: 



FDCO' 

DB 37 

IN 

A»{HDSTAT) 

f GET STATUS 

FDCZ' 

CB 17 

BIT 

HDERRSiA 

f CHECK IF ERROR 

FDC1' 

20 03 

JR 

NZfHDRUER 


FDC6' 

AF 

XOR 

A : 

SET NO ERROR 

FDC7' 

18 02 

JR 

HDRHRT 


FDC9' 


hdrher: 



FDC9' 

DB 31 

IN 

A>(HDERR) 

J GET ERROR REGISTER 

FDCB' 


hdrurt: 



FDCB' 

D1 

POP 

DE t 

RESTORE REGISTERS 

FDCC 

Cl 

POP 

BC 


FDCD' 

C9 

RET 




.KXIIIIKIXXIlXIKIIKXIXIXXIXIlKIXKIXXXXlXIXIXIIIXXKimmimillX 


OATAST CONSOLE STATUS 


in: none 

out: no carry if not ready 

CARRY IF READY AND A=DECODED VALUE 

REG(S) modified: a 


FDCE' 

FDCE’ 

D5 

datast: 

PUSH 

DE .SAVE REGISTERS 

FDCF' 

3A FFA9' 

LD 

A»(TSTFLG) 

> CHECK IF REPEAT TEST IN PROGRESS 

FDD2' 

B7 

OR 

A 


FDD3' 

20 10 

JR 

NZ>DATNRO 

J SKIP PROCESSING IF IT IS 

FDDS' 

DB 09 

IN 

A»(KEYBST) 

i CHECK STATUS 

FDD7' 

E6 OF 

AND 

KEYBMK 


FDD9' 

28 17 

JR 

ZfDATNRD 

; RETURN IF NOT READY 

FDDB' 

3E FF 

LD 

ArOFFH 

t ACTIVATE REPEAT KEY TEST 

FOOD' 

32 FFA8' 

LD 

<RPTFLG)»A 


FDEO' 

3A FFAA* 

LD 

Af(AUTFLG) 

» CHECK IF IN AUTO REPEAT MODE 

FDE3' 

B7 

OR 

A 


FDE1' 

20 OB 

JR 

NZ»AUTORP 

; AND PROCESS ACCORDINGLY 

FDE6' 

DB 08 

IN 

A»(KEYBDA) 

; GET KEY PRESSED 

FDE8' 

CD FE25' 

CALL 

DECODE 


FDEB' 

CB 7F 

BIT 

7»A 

; CHECK IF FUNCTION KEY 

FDED' 

20 22 

JR 

NZfFUNKEY 


FDEF' 

18 21 

JR 

DIFKEY 


FDFl' 

FDFl' 

AF 

autorp: 

XOR 

A 


FDF2' 

32 FFAA' 

LD 

(AUTFLG)»A 

? RESET AUTO REPEAT MODE 

FDFS' 

3A FF91' 

LD 

Af(LASTKY) 

J GET LAST KEY PRESSED 
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FDF8' 

E6 

3F 

AND 

KEYHSK 

? IGNORE CONTROL AND SHIFT BIT 

FDFA' 

5F 


LD 

ErA 

} SAVE FOR LATER 

FDFB' 

DB 

08 

IN 

Af(KEYBDA) 

; GET KEY PRESSED 

FOFD' 

CD 

FE25' 

CALL 

DECODE 


FEOO' 

CB 

7F 

BIT 

7fA 

5 CHECK IF FUNCTION KEY 

FE02' 

20 

OD 

JR 

NZ»FUNKEY 


FE01' 

3A 

FF91' 

LD 

A»(LASTKY) 

; GET KEY PRESSED 

FE07' 

E6 

3F 

- AND 

KEYHSK 

f STRIP SHIFT AND CONTROL BITS 

FE09' 

BB 


CP 

E ; CHECK IF SAHE AS PREVIOUS KEY 

FEOA' 

20 

09 

JR 

NZrDIFKEY 

: BRANCH IF NOT 

FEOC 

U 

0005 

LD 

DE»PT05 

? SET AUTO REPEAT TIHER 

FEOF' 

18 

07 

JR 

SETDLY 


FEU' 



funkey; 



FEU' 

AF 


XOR 

A 


FE12' 

32 

FFA8' 

LD 

(RPTFLG)»A 

; RESET REPEAT FLAG 

FE15' 



difkey: 



FE15' 

11 

0050 

LD 

DEfONESEC 

J SET DELAY FOR ONE SECOND 

FE18' 



setdly: 



FE18' 

ED 

53 FF96' 

LD 

(DLYCTR)jDE 


FEIC 

3A 

FF95' 

LD 

Af(KEYVAL) 

> GET DECODED VALUE 

FEIF' 

37 


SCF 

5 SET 

READY 

FE20' 

18 

01 

JR 

DATIRT 


FE22' 



datnrd: 



FE22' 

AF 


XOR 

A } SET 

NOT READY 

FE23' 



datirt: 



FE23' 

D1 


POP 

DE 


FE21' 

C9 


ret 

A 






f 

f decode key entered to 

ASCII 




f 

1 INPUT} 

A - KEY VALUE 





J OUTPUT} 

4 

A - DECODED VALUE 

FE25' 



f 

DECODE} 



FE25' 

E5 


PUSH 

HL i SAVE REGISTERS 

FE26' 

C5 


PUSH 

BC 


FE27' 

21 

0000 

LD 

HLfO 

5 RE-INITIALIZE TIHER COUNT 

FE2A' 

22 

FFA6' 

LD 

(TIHCHT)rHL 


FE2D' 

32 

FF91' 

LD 

(LASTKY)»A 

} SAVE KEY PRESSED 

FE30' 

21 

FE53' 

LD 

HL»KEYTBL 

{ POINT TO DECODING TABLE 

FE33' 

IF 


LD 

C>A 


FE31' 

CB 

77 

BIT 

SHIFTrA 

; CHECK IF SHIFT KEY DEPRESSED 

FE36' 

28 

11 

JR 

Z»SHFTEN 


FE38' 

CB 

7F 

BIT 

CNTLrA 

} CHECK IF CONTROL KEY DEPRESSED 

FE3A' 

28 

OD 

JR 

ZfSHFTEN 


FE3C' 

DB 

18 

IN 

Ar(CAPREG} 

; CHECK IF CAPITAL LOCK ON 

FE3E' 

CB 

67 

BIT 

CAPLCKrA 


FE10' 

20 

07 

JR 

NZfSHFTEN 


FE42' 

21 

FF53' 

LD 

HLfCAPTBL 

* POINT TO CAPITAL LOCK TABLE 

FE15' 

79 


LD 

AfC 


FE16’ 

E6 

3F 

AND 

KEYHSK 

f STRIP CONTROL AND SHIFT BITS 

FE18' 

IF 


LD 

CrA 


FE19' 



SHFTEN} 



FE19' 

06 

00 

LD 

BrO 


FE«' 

09 


ADD 

HLfBC 


FEIC 

7E 


LD 

A>(HL) 

; GET ASCII VALUE 
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FE4D' 


dcodrt: 


FE4D‘ 

32 FF95' 

LD 

(KEYOADfA 5 SAVE DECODED VALUE 

FE50' 

Cl 

POP 

BC 5 RESTORE REGISTERS 

FE51' 

El 

POP 

HL 

FE52' 

C9 

RET 



KEYBOARD DECODING TABLE 




FE53' KEYTBL! 

; FUNCTION = SHIFT AND CONTROL 


f 


FE53' 

IB 

00 

B5 

IE 

DB 

FE57' 

B9 

BO 

60 

7F 


FE5B’ 

B1 

B3 

B4 

B7 

DB 

FE5F' 

B8 

IF 

3D 

80 


FE63' 

09 

C5 

D2 

D5 

DB 

FE67' 

C9 

7B 

7D 

80 


FE6B' 

D1 

D7 

D4 

D9 

DB 

FE6F' 

CF 

DO 

7C 

08 


FE73' 

80 

Cl 

C6 

C7 

DB 

FE77' 

CB 

CC 

OD 

OA 


FE7B' 

80 

D3 

C4 

C8 

DB 

FE7F' 

CA 

3B 

27 

80 


FE83' 

80 

D8 

C3 

CE 

DB 

FE87‘ 

CD 

2F 

93 

80 


FE8B' 

20 

DA 

D6 

C2 

DB 

FE8F' 

2C 

2E 

98 

80 



NO 


FE93' 

IB 

32 

35 

36 

OB 

FE97' 

39 

30 

60 

7F 


FE9B' 

31 

33 

34 

37 

DB 

FE9F' 

38 

2D 

3D 

00 


FEA3' 

09 

05 

12 

15 

DB 

FEA7' 

09 

IB 

ID 

00 


FEAB' 

11 

17 

14 

19 

DB 

FEAF' 

OF 

10 

1C 

08 


FEB3' 

00 

01 

06 

07 

DB 

FEB7' 

OB 

OC 

OD 

OA 


FEBB* 

00 

13 

04 

08 

DB 

FEBF' 

OA 

3B 

27 

00 


FEC3' 

00 

18 

03 

OE 

DB 

FEC7' 

OD 

2F 

13 

00 


FECB' 

20 

lA 

16 

02 

DB 

FECF' 

2C 

2E 

18 

00 



01BH.000H>0B5Hj01EHf0B9Hf0B0H»060H>07FH 

OBiH.OB3HfOB4H»OB7H»0B8Hf01FH»O3DHj080H 

009Hf0C5Hf002Hj0D5H»0C9H»07BH»070H»080H 

0DlH»0D7H.0D4H»0D9Hf0CFHf0D0H»07CH»008H 

080H»0C1H>0C6Hj0C7H»0CBH»0CCH»00DH»00AH 

O80HfOD3H>0C4H?0C8Hj0CAH»03BH»027H»080H 

080H»0D8Hj0C3H»0CEHi0CDH»02FH»093H»080H 

02DHf0DAHf0D6Hr0C2H>02CH»02EH;098H>080H 

SHIFT AND CONTROL 

01BH,032H»035H»036H»039Hf030H»060H»07FH 

031H>033H>034Hf037H>038Hr02DHr03DHr000H 

009H»005Hf012Hj015Hj009Hf01BH»01DH»000H 

011H»017H»014Hi019Hj00FH»010Hf01CH»008H 

000Hf001H>006Hr007H>00BH>00CHr00DHr00AH 

000H>013H>004H>008H>00AH»03BH>027H>000H 

000Hf018H>003H>00EH>0QDH502FH>013Hr000H 

020H»01AHi016Hf002Hj02CH»02EH»018H»OOOH 


50 

58 

510 

518 


520 


528 

530 

538 


540 

548 

550 

558 

560 

568 

570 

578 




SHIFT AND NO CONTROL 


» 


FED3' 

IB 

40 

25 

5E 

DB 

FED7' 

28 

29 

7E 

7F 


FEDB' 

21 

23 

24 

26 

OB 

FEDF' 

2A 

5F 

2B 

00 


FEE3‘ 

09 

45 

52 

55 

DB 

FEE7* 

49 

7B 

7D 

00 



01BH»040H»025Hf05EH»028H»029H»07EH»07FH 

021HT023Hf024H»026Hj02AHj05FH»02BH»000H 

009H»045Hf052Hr055H»049Hj07BH»07DHjOOOH 


580 

588 

590 
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FEEB" 

51 

57 

51 

59 

DB 

051H r 057H j 051H»059H»01FH»050H 1 07CH»008H 

598 

FEEF' 

IF 

50 

7C 

08 




FEF3' 

00 

11 

16 

17 

DB 

OOOH f 011H»016H f 017H f 01BH101CH»OODH»OOAH 

lAO 

FEF7' 

IB 

1C 

00 

OA 




FEFB' 

00 

53 

11 

18 

DB 

OOOH,053H f 011H»018H,01AH j 03AH j 022HiOOOH 

;a8 

FEFF' 

1A 

3A 

22 

00 




FF03‘ 

00 

58 

13 

IE 

DB 

000H,058Hj013Hf01EH»01DHf03FHj010H»000H 

JBO 

FF07‘ 

ID 

3F 

10 

00 




FFOB' 

20 

5A 

56 

12 

DB 

020H j 05 AH! 056H»012H»03CH f 03EH. OOEH»OOOH 

;b8 

FFOF' 

3C 

3E 

OE 

00 









; NO SHIFT AND NO CONTROL 


FF13' 

IB 

32 

35 

36 

DB 

OIBH,032H»035H»036H»039H»030H»060H f 07FH 

ICO 

FF17' 

3? 

30 

60 

7F 




FFIB' 

31 

33 

31 

37 

DB 

03IH»033H»031H»037H f 038H f 02DH f 03DH»OOOH 

(C8 

FFIF' 

38 

2D 

3D 

00 




FF23' 

09 

65 

72 

75 

DB 

009H f 065H f 072H r 075H»069H r 05BH»05DH f OOOH 

IDO 

FF27' 

69 

5B 

5D 

00 




FF2B' 

71 

77 

71 

79 

DB 

071H f 077H j 071H j 079H f 06FH j 070H f 05CH.008H 

;d8 

FF2F' 

6F 

70 

5C 

08 




FF33’ 

00 

61 

66 

67 

DB 

OOOH f 061H j 066H j 067H 5 06BH f 06CH j OODH j OOAH 

;eo 

FF37' 

6B 

6C 

OD 

OA 




FF3B' 

00 

73 

61 

68 

DB 

OOOH»073H»061H,068H»06AH»03BH,027H»OOOH 

*E8 

FF3F' 

6A 

3B 

27 

00 




FF13' 

00 

78 

63 

6E 

DB 

OOOH,078H T 063H»06EH»06DH»02FH»002H,OOOH 

?F0 

FF17' 

6D 

2F 

02 

00 




FFIB' 

20 

7A 

76 

62 

DB 

020H j 07AH j 076H r 062H»02CH T 02EH»006H f OOOH 

?F8 

FFIF’ 

2C 

2E 

06 

00 





CAPITAL LOCK DECODING TABLE 


FF53‘ 




captbl; 



FF53' 

IB 

32 

35 36 

DB 

01BH»032Hf035H,036Hj039H.030Hj060Hf07FH 

180 

FF57' 

39 

30 

60 7F 




FF5B' 

31 

33 

31 37 

DB 

031H»033H>031H»037H»038H»02DHf03DH»OOOH 

188 

FF5F' 

38 

20 

3D 00 




FF63’ 

09 

15 

52 55 

DB 

009H»015H»052Hj055Ht019H»05BHf05DH»000H 

190 

FF67' 

19 

5B 

5D 00 




FF6B' 

51 

57 

51 59 

DB 

051H»057H»051H»059H»01FH»050H»05CH»008H 

198 

FF6F’ 

IF 

50 

5C 08 




FF73' 

00 

11 

16 17 

DB 

OOOH»O11H»O16H»O17HfO1BH»01CH»OODHf00AH 

lAO 

FF77' 

IB 

1C 

00 OA 




FF7B' 

00 

53 

11 18 

DB 

000Hf053Hj011H>018Hj01AHf03BHf027Hj000H 

1A8 

FF7F' 

1A 

3B 

27 00 




FF83' 

00 

58 

13 IE 

DB 

OOOH j058H»013H»01EH f 01DH j 02FH»002H»OOOH 

IBO 

FF87' 

ID 

2F 

02 00 




FF8B' 

20 

5A 

56 12 

DB 

020H T 05AH,056K»012H»02CH r 02EH f 006H»OOOH 

1B8 

FF8F' 

2C 

2E 

06 00 




FF93' 

00 



chksuh; DB 

0 ; CHECKSUM 


FF91' 

00 



LASTKY5 DB 

0 ; LAST KEY ENTERED 


FF95' 

00 



keyval; DB 

0 ; LAST DECODED VALUE 


FF96' 

0050 


DLYCTRI DW 

ONESEC f AUTO REPEAT DELAY COUNT 


FF98' 

00 



DLYCNT5 DB 

0 f DELAY COUNT 


FF99' 

0000 


endad: dm 

0 
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FF9B' 

0000 

TVSTAT5 D« 

0 



FF9D' 

0000 

STKSAV; OH 

0 



FF9F' 

0000 

HAXTRKJ DH 

0 

5 

DISK TEST VARIABLES 

FFAl' 

0000 

TRKNBR! DH 

0 



FFA3' 

00 

SECNBR} DB 

0 



FFAl' 

0000 

TIHSTKS DH 

0 

} 

STACK SAVE FOR TIHER INTERRUPT 

FFA6' 

0000 

TIHCNTJ DH 

0 


TIMER COUNTER 

FFA8' 

00 

RPTFLGJ DB 

0 

i 

REPEAT FLAG 

FFA9' 

00 

TSTFLGJ DB 

0 

A 

f 

REPEAT IN PROGRESS FLAG 

FFAA' 

00 

AUTFLGl DB 

0 

« 

f 

AUTO REPEAT MODE 

FFAB' 

0000 

DH 

0 

« 

f 

EXTRA STACK ENTRY FOR SECONDARY ITRPT 

FFAD' 

0000 0000 

DH 

OfOrO 



FFBl' 

0000 





FFB3' 


STKTIM EQU 

$ 

f 

LOCAL STACK FOR TIMER INTERRUPT 

FFB3' 

0000 

DH 

0 

t, 

f 

EXTRA STACK ENTRY FOR SECONDARY ITRPT 

FFB5' 

0000 0000 

DH 

OfOfO 



FFB9' 

0000 





FFBB- 


STKBAS EQU 

$ 

« 

f 

LOCAL STACK FOR 10 COLUMN 

FFBB' 

0000 0000 

DH 

OrOrOfOrO 

} RESERVE STACK FOR DISK I/O 

FFBF' 

0000 0000 





FFC3' 

0000 

ORG 

OFFCDH 



FFCD' 


STKDSKJ 


A 

9 

LOCAL STACK FOR FLOPPY DISK I/O 

FFCD' 

0000 

DSKSTK: DH 

0 



FFCF' 

0000 

TIHCTRJ DH 

0 

t 

GENERAL TIMER COUNT 



ORG 

OFFDIH 






t BOOT SECTOR CONSTANT 



t 

} FFDl 

STEPS 




f FFD2 

DSKCMD 




5 FFD3 

SELBYT 


FFDl' 

00 

t 

steps: DB 

0 i 

STEPPING RATE 

FFD2' 

00 

dskcmd: DB 

0 i 

DISK COMMAND 

FFD3' 

00 

SELBYT: DB 

4 

0 ; 

SELECT BYTE 



t 

f BOOT PROM TO BIOS COMMUNICATION AREA 



f 

5 FFDl 

COLNO 




} FFD6 

LINENO 




} FFD7 

SCSTART 




5 FFD9 

OFFSET 




5 FFDB 

OFFTMP 




t FFDD 

VBFLAG 




i FFDE 

NOT USED 




J FFDF 

SHITCH 




i FFEO 

MODREF 




f FFEl 

ITRREG 




* FFE2 

lOREG 




i FFE3 

DTRNTB 




} FFE5 

DPBASE 


FFDl* 

0000 

> 

COLNO: DH 

0 ; 

COLUMN NUMBER 

FFD6' 

00 

LINENO: DB 

0 ; 

LINE NUMBER 

FFD7' 

0000 

SCSTARTIDH 

0 ; 

SCREEN START ADDRESS 





FFD9' 

0000 

OFFSET} DM 

0 

i OFFSET 

FFDB' 

0000 

OFFTMP} DH 

0 

} TEHPORARY STORAGE FOR OFFSET 

FFDD' 

00 

OBFLAG} DB 

0 

} VBLANK FLAG 

FFDE' 

00 

DB 

0 

; NOT USED 

FFDF' 

00 

syschd: DB 

0 

5 SYSTEM CONTROL HORD 

FFEO' 

00 

HODREG} DB 

0 

* PVTC MODE REGISTER 

FFEl' 

00 

ITRREG} DB 

0 

f I REGISTER 

FFEZ' 

00 

ioreg: DB 

0 

; CONTROL REGISTER 

FFE3' 

0000 

DTRNTBI DH 

0 

? LOGICAL TO PHYSICAL DISK TRANS. TABLE ADR 

FFE5' 

0000 

DPBASEi DH 

0 

f ADDRESS OF DISK PARM, TABLE 




A 

• 

FFE7 

JUMP 

CONST 



A 

i 

FFEA 

JUMP 

CONIN 



A 

f 

FFEO 

JUMP 

HDRHS 



A 

i 

FFFO 

JUMP 

HDHOME 



f 

FFF3 

JUMP 

FDRHS 



J 

FFF6 

JUMP 

DSKSEL 



A 

FFF9 

JUMP 

TYPEl 



• 

f 

A 

FFFC 

JUMP 

DELAY 

FFE7' 

C3 FDCE' 

f 

CONST! 

JP. 

DATAST 


FFEA' 

00 00 00 

CONIN! 

DB 

OrOrO 


FFED' 

C3 FDBB' 


JP 

HDRHS 


FFFO' 

C3 FD6F' 


JP 

HDHOME 


FFF3' 

C3 FC7B' 


JP 

FDRHS 


FFF6' 

C3 FC62' 


JP 

DSKSEL 


FFF9' 

C3 F006' 


JP 

TYPEl 


FFFC 

C3 FD60' 


JP 

DELAY 


FFFF' 

00 

DSKFIN! 

DB 

OOH 


0000' 


STOP! 





i DISK COHHAND STATUS INDICATOR 
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HacrosJ 






SynbolsS 

F1A0' 

ACTTST 

FDFl' 

AUTORP 

016E' 

B2HLP 

0315' 

BAOSYS 

F913' 

BEEPLl 

0020 

BONN 

F989' 

BOOTl 

F902' 

B00T1 

0080 

BUF 

0018 

CAPREG 

0008 

CHAR2K 

OIBC 

CHECK3 

F5FD' 

CHECK6 

FAAC 

CHKLP 

01C2' 

CHKLP3 

F603' 

CHKLP6 

FF93' 

CHKSUH 

0007 

CNTL 

0001 

C0L10 

FFE7' 

CONST 

0071' 

CPUERR 

0030 

CUROFF 

FDCE' 

DATAST 

F873' 

DATORT 

FE25' 

DECODE 

0168' 

DIGIT 

FD63' 

DLl 

0010 

D0T7 

FADD' 

DSIDES 

FFD2' 

DSKCKD 

FFFF' 

DSKFIN 

002A 

DSKTST 

F518' 

DTLP2 

F53r 

DMFYl 

F513' 

DMFY1 

F578' 

DVFY7 

FF99' 

ENDAD 

F7AF' 

FAILHSG 

0013 

FDDATA 

FB9C' 

FDOUT 

FC78' 

FDRNS 

0011 

FDTRK 

F9E8’ 

FLASH 

02Ar 

FLHLIO 

02AC' 

FLHLP2 

0037 

HDCHO 

0031 

HDCYLL 

0031 

HDERR 

FD78' 

HDHDH2 

FD6F' 

HDHOHE 

FDCO' 

HDNORD 

0020 

HDREAD 


F697' AFMOyE 

0116' B2H 

0155' B2HLSN 

0080 BEEP 

F91B’ BEEPL2' 
F8C9' BOOT 

F992' B00T2 

F7D8' BOOTERR 
0005 CAPBIT 

FF53' CAPTBL 

F871' CHAROUT 
F5BC' CHECK1 

F86E' CHKCR 

03D0' CHKLPl 

F5C2’ CHKLPl 

FAFO' CHKRET 

F886' CHORET 

0002 CNTLB 

FFD1' COLNO 

0316' CONTENT 
006E' CPUTST 

0031 CURON 

FE23’ DATIRT 

F91A' OCERR 

FD60' DELAY 

0029 DISPON 

FF98' DLYCNT 

FFE5' DPBASE 

0003 DSK 

FBOO' DSKORQ 

FC62' DSKSEL 

0000 DSSTEP 

F72E' DTHSG 

F536' DMFY2 

F57F’ DMFY5 

F58D' DVFY8 

F7FF' ERRITR 

0010 FDBASE 

FBA2' FDEND 

FCC5' FDRHLP 

0012 FDSEC 

OODO FITRPT 

F9EE' FLASHl 

029D' FLHLP 

FEll' FUNKEY 

0032 HOCNT 

0030 HDDATA 

0000 HDERRS 

FD89' HDH0H3 

FBAD' HDIO 

F0A7' HDRD 

FDA8' HDRH2 


FFAA' AUTFLG 

0160' B2HEXE 

015E‘ B2HRET 

F93B' BEEPLO 

0020 BLANK 

F938' BOOTO 

F998' B00T3 

0008 BS 

0001 CAPLCK 

FBAA' CARRTN 

FAA5' CHECK 

OlFD' CHECKS 

FAEF' CHKERR 

F6C7' CHKLP2 

0203' CHKLP5 

FAEl' CHKSAV 

0018 CHDREG 

F865' CNTLCH 

FFEA' CONIN 

0072' CPUEND 

OOOD CR 

F85C' DATAOUT 
FE22' DATNRD 

FE1D' DCODRT 

FE15' DIFKEY 

F065' OLO 

FF96' DLYCTR 

0005 DSIDE 

0001 DSKA 

FB02' OSKEND 

FFCD' DSKSTK 

F1C6' OTLPl 

FFE3' DTRNTB 

F509' DVFY3 

F572' DVFY6 

F511' DVFY9 

0007 EXPTIH 

0010 FDCHD 

FB96' FDIN 

FCE7' FORHRT 

0010 FDSTAT 

FD97' FM12 

F9F6' FLASH2 

02A1' FLHLPl 

F889' GETCUR 

0035 HDCYLH 

FBAF' HDEND 

F072' HDHOHl 

FD87' HDHOHl 

0008 HDLOAD 

FDB9' HDRDLP 

FDAE' HDRH3 
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FDC9' 

HDRHER 

FDCB' 

HDRHRT 

FD8B' 

HDRHS 

0036 

HDSDH 

0033 

HDSEC 

0037 

HDSTAT 

F72B' 

HDTEST 

0031 

HDHPC 

FOAO' 

HDHRLP 

0020 

HLD 

F9B7’ 

INDBAD 

A2ED 

INICOD 

002E' 

IHILPl 

0003' 

INITAB 

0001 

INTERS 

0010 

INTERL 

0018 

INTHSK 

OOFB 

lOHSK 

FFE2' 

lOREG 

0011 

IRO 

0032 

IRl 

0080 

IRIO 

OOOE 

IR2 

0066 

IR3 

0017 

IR1 

001F 

IR5 

0008 

IR6 

0009 

IR7 

0080 

IR8 

0010 

IR9 

0028' 

ITABEN 

F827’ 

ITRO 

F82B' 

ITRl 

F831' 

ITR2 

F834' 

ITR3 

F83F' 

ITR1 

F815' 

ITR5 

F818' 

ITR6 

F81B' 

ITR7 

F8FE' 

ITRERR 

FFEl' 

ITRREG 

F817' 

ITRTAB 

OOFB 

ITRVEC 

0007 

KBDENA 

0000 

KBHODl 

002A 

KBH0D2 

0009 

KEYBCH 

0008 

KEYBD 

0008 

KEYBDA 

OOOF 

KEYBHK 

0009 

KEYBST 

FB87' 

KEYHIT 

003F 

KEYHSK 

0180' 

KEYRDY 

FE53' 

KEYTBL 

FF95' 

KEYVAL 

OIAO' 

LAST 

FF91' 

LASTKY 

03BE' 

LDLPl 

F6B5' 

LDLP2 

OlAC 

LDLP3 

F5AC' 

LDLP1 

OlED' 

LDLP5 

F5ED' 

LDLP6 

OOOA 

LF 

F89B' 

LFEED 

F89D' 

LFEEDl 

F8A7' 

LFRET 

0003 

LINEO 

FFD6' 

LINEND 

0008 

LINZER 

F9A7' 

LOCAL 

8000 

H16EG 

03E9' 

MIERR 

03FE' 

KlERRl 

0105' 

H1ERR3 

OIOC 

H1ERR1 

0117' 

H1ERR5 

011E' 

H1ERR6 

0129' 

M1ERR7 

0130' 

H1ERR8 

013B' 

M1ERR9 

032A' 

KIHDG 

0176' 

HlOK 

8000 

MISIZE 

0000 

H2BEG 

F6DF' 

H2ERR 

F6F5' 

H2ERR1 

F6FD' 

H2ERR3 

F705' 

H2ERR1 

F710' 

H2ERR5 

F718' 

H2ERR6 

F723' 

H2ERR7 

F72B' 

H20K 

FOOO 

H2SIZE 

FFFF 

H3BEG 

0286' 

H3ER10 

022C' 

H3ERR 

023D' 

H3ERR1 

0215* 

K3ERR3 

021D‘ 

M3ERR1 

0258' 

H3ERR5 

0260' 

H3ERR6 

026B' 

H3ERR7 

0273' 

H3ERR8 

027E' 

H3ERR9 

02B8' 

H30K 

EFFF 

H1BEG 

F680' 

H1ER10 

F625' 

H1ERR 

F636' 

H1ERR1 

F63E' 

H1ERR3 

F616' 

H1ERR1 

F65r 

H1ERR5 

F659' 

H1ERR6 

F661' 

M1ERR7 

F66C' 

H1ERR8 

F677' 

H1ERR9 

0050 

HAXCOL 

0017 

HAXLIN 

FF9F' 

HAXTRK 

FA7C' 

KEASO 

FA82' 

HEASl 

FA89' 

HEAS2 

FFFF 

HEHEND 

FA1F' 

HEHRD 

FA51' 

HEHRDl 

0031 

HEMTST 

FA59' 

HEHNR 

FFEO' 

HOOREG 

0176' 

HOVE 

F6AD' 

HTEST2 

0381’ 

NODISP 

FC19' 

HOTVB 

FC51' 

NOTHRA 

OlDC 

NXADR3 

F5DC' 

HXADR1 

021D' 

NXADR5 

F61D' 

NXADR6 

03B8' 

NXPATl 

F6AF' 

NXPAT2 

01 Ai' 

NXPAT3 

F5A6' 

NXPAT1 

01E7' 

NXPAT5 

F5E7' 

NXPAT6 

OICD’ 

NXTA03 

F5C0' 

KXTAD1 

020E' 

NXTAD5 

F60E' 

NXTAD6 

F691' 

NXTBND 

029A' 

NXTFHD 

0055' 

NXTTST 

0028 

OFFDIS 

FFD9' 

OFFSET 

FFDB' 

OFFTHP 

F85B' 

OHSGRT 

003D 

ONDICU 

0050 

OHESEC 

A3ED 

OUTICD 

F81E' 

OUTHSG 

0351’ 

PATTERN 

02E2' 

PMSG 

F92D' 

PHSGIO 

02F0' 

PHSGLl 

02FC' 

PHSGL2 

0306' 

PHSGRT 

FB78' 

POLL 

FOOO 

PROHAD 
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0360' PROHPT 

0096' PVTC 

OOCE’ PMTCER 

0009 POTCRl 

OOCO RACMD 

0082 RDCHO 

OOAD RDINC 

OOOA RETRY 

0000’ ROHBEG 

FFA8' RPTFLG 

0018 RSTLNO 

FCE5' RWFIN 

FFD7' SCSTART 
FFD3' SELBYT 

FE18' SETDLY 

0006 SHIFT 

0002 SIDEl 

0010 SKERR 

5511 SPDLB 

FA60' SPEED 

FFDl' STEPS 

FF9D' STKSAM 

FA6B‘ STUPO 

FFDF’ SYSCHD 

0196' TESTHl 

0005 ^ TIHER 

FB8B' TIHIRT 

FD13' TIHOUT 

0319' THHSG 

FFA9' TSTFLG 

00A5 TSTPAT 

FBDD' TVDSK 

FBD3' TMREGRT 
FD31' TYPEIO 

FD1B' TYPEH 

FFOD' MBFLAG 

FAID' WORDO 

FA3F' VOOHRO 

0001 VERIFY 

0000 VTCBAS 

0001 VTCCUl 

0110' VTCERR 

OOID VTCMOD 

0007 VTCPT2 

0002 VTCSCl 

012B' VTCHAIT 
OOlC VTODAT 

00D7' HAITLO 

0103' HAITL3 

016F' HAITL6 

03B6' HAITL9 

00A2 HRCHD 

OOAA HRCUR 


0000 PROHST 

009D' PVTCl 

FB01' PVTCl 

0001 PVTCHO 

0002 RAMRD 

OOAC RDCUR 

F981' REBOOT. 

0002 REVVID 

F1A0 ROHSAD 

0000 RSCHD 

0010 RSTHSK 

0000 SCRLOF 

FFA3’ SECNBR 

0007 SELHSK 

FCAl' SETVEC 

037E' SHOH 

0308' SIGNON 

0003 SLOSTP 

FAA1' SPDRET 

0001 SPLITS 

FFBB' STKBAS 

FFB3' STKTIH 

FA71' STUPl 

F77E' SYSOK 

FFA6' TIHCNT 

FB08' TIMERI 

FB12' TIMITR 

FFA1' TIHSTK 

FFAl' TRKNBR 

008A' TSTLPl 

FC5B' TVCHRT 

FC50' TVDSKRT 
FF9B' TVSTAT 

FD15' TYPE12 

FD56' TYPE15 

0001 VBIT 

FA2B' VDORDl 

FA36' VDOHRl 

8000 VFYBUF 

0080 VTCEEG 

0005 VTCCU2 

0122' VTCERH 

0132' VTCOK 

0020 VTCRDY 

0003 VTCSC2 

OOOD VTIDAT 

OOEO' VTSTLP 

00E9' HAITLl 

0155' HAITLl 

03A2' HAITL7 

FB59' HAITLO 

0005 HRCHND 

OOAB HRINC 


0005 

PT05 

00C3' 

PVTC2 

0000 

PVTCRO 

OOOA 

PVTCHl 

0003 

RAHHR 

009E 

RDERR 

00C9 

RETCOD 

0010 

RHF 

1000 

ROHSIZ 

0098 

RSERR 

0050 

RSTVBL 

0001 

SCRLON 

0018 

SEL 

F892' 

SETCUR 

FE19' 

SHFTEN 

0050 

SICHD 

0010 

SKCHD 

FAA2' 

SPDERR 

588A 

SPDUB 

0018 

STAREG 

FFCD' 

STKDSK 

0000' 

STOP 

F7A7' 

SYSEAD 

F5A1' 

TESTH 

FFCF' 

TIHCTR 

0080 

TIHEXP 

F96F' 

TIMLP 

FB95' 

THIBET 

F91E' 

TSTDON 

OlAl' 

TSTHEM 

FBF6' 

TVCOHH 

FBBA' 

TVREG 

FD06' 

TYPEl 

FD1D' 

TYPEIS 

FBIO' 

UNIHP 

0010 

VBLANK 

FA21' 

VDORDL 

FA17' 

VDOHRL 

F597' 

VFYERR 

0001 

VTCCHD 

07FF 

VTCEND 

0000 

VTCINI 

0006 

VTCPTl 

0000 

VTCRST 

0001 

VTCSTA 

0051 

VTHODE 

F8C2' 

HAIT 

OOFA' 

HAITL2 

0161' 

HAITL5 

0172' 

HAITL8 

0030 

HHDBAS 

OOBB 

HRCP 


No Fatal error(s) 
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.280 


BOOT SECTOR FOR PIED PIPER 

SEHI-TECH HICROELECTRONICS CORP. COPYRIGHT 


003A 


HSIZE 

EQU 

58 




.BIAS 

EQU 

(HSIZE-20)il021 

9800 


BIAS 

EQU 

09800H 


CCOO 


CCP 

EQU 

3100H+BIAS 

D106 


BDOS 

EQU 

CCP+806H 


E200 


BIOS 

EQU 

CCP+1600H 




f 

* 

f 

COHHON AREA FOR PARAMETERS AND JUMP TABLES IN PROH 

FFDB 


} 

PBASE 

EQU 

OFFDBH 


FFCE 


LOCAL 

EQU 

OFFCEH 

? DISK ERROR LOCAL MODE 

FFDl 


STEPS 

EQU 

OFFDIH 

J STEPPING RATE OF BOOT DRIVE 

FFD2 


FDCMD 

EQU 

0FFD2H 

t FLOPPY DISK COMMAND 

FFD3 


SELBYT 

EQU 

0FFD3H 

t BOOT DISK SELECT BYTE INFORMATION 

FFEl 


ITRREG 

EQU 

OFFEIH 


FFE2 


lOREG 

EQU 

0FFE2H 

» I/O REGISTER 

FFF3 


FDRUS 

EQU 

PBASE+18H 

i FLOPPY DISK SECTOR READ/NRITE ROUTINE 

FFF6 


DSKSEL 

EQU 

PBASE+IBH 

» DISK SELECT ROUTINE 

FFF9 


TYPEl 

EQU 

PBASE+lEH 

} FLOPPY DISK TYPE I COMMAND ROUTINE 

FFFC 


DELAY 

EQU 

PBASE+21H 

t 1 MS DELAY ROUTINE 

0082 


f 

RDCHD 

EQU 

lOOOOOlOB 

5 FLOPPY DISK READ SECTOR COMMAND 

0008 


SBIT 

EQU 

OOOOIOOOB 

i FLOPPY DISK SIDE SELECT BIT 

0058 


SICMD 

EQU 

OlOllOOOB 

* FLOPPY DISK STEP IN COMMAND 

0002 


SIDEl 

EQU 

2 f 

SIDE SELECT BIT 

0005 


SIDE 

EQU 

5 f 

SIDE INFORMATION BIT 

0080 


BOOT 

EQU 

80H 

t ORIGIN OF BOOTSTRAP 

0010 


SIDLY 

EQU 

16 } 

16 MS DELAY FOR STEP-IN COMMAND 

OOOA 


RETRY 

EQU 

10 


0002 


TRKOST 

EQU 

2 t 

START SECTOR FOR TRACK 0 

OOOA 


TRKOEN 

EQU 

10 t 

END SECTOR FOR TRACK 0 

0001 


TRKIST 

EQU 

1 ♦ 

START SECTOR FOR TRACK 1 

OOOA 


TRKIEH 

EQU 

10 { 

END SECTOR FOR TRACK 1 

0012 


SEC 

EQU 

12H 

5 SECTOR REGISTER 



t 

.PHASE 

BOOT 


0080 

OE 02 

BOOTSl 

LD 

CrTRKOST 

} START FROM SECTOR 2 

0082 

IE OA 


LD 

ErTRKOEN 

} UP TO SECTOR 10 

0081 

21 CCOO 


LD 

HLiCCP 

} SET UP DMA ADDRESS 

0087 

3E 82 


LD 

AfRDCHD 

} SET FOR READ 

0089 

32 FFD2 


LD 

(FDCHDlrA 


008C 

CD OODF 


CALL 

RDSECS 

5 READ IN TRACK 0 SECTORS 

008F 

B7 


OR 

A 


0090 

20 32 


JR 

NZrBOOTERR 

0092 

3A FFD3 


LD 

Af(SELBYT) 

1 i GET SELECT BYTE 

0095 

CB 6F 


BIT 

SIDE>A 

; CHECK IF DOUBLE SIDED 

0097 

20 13 


JR 

NZ>DSIDE 


0099 

3A FFDl 


LD 

Aj(STEPS) 

5 GET STEPPING RATE OF BOOT DISK 
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009C 

5F 

LD 

E>A 


0090 

3E 58 

LD 

A>SICMD 

f PERFORM STEP IN IF SINGLE SIDED 

009F 

B3 

OR 

E 


OOAO 

CD FFF9 

CALL 

TYPEl 


00A3 

06 10 

LD 

BjSIDLY 

J SET TO DELAY 16 MS 

00A5 


OLYLP; 



00A5 

CD FFFC 

CALL 

DELAY 


00A8 

10 FB 

DJNZ 

DLYLP 


OOAA 

18 OD 

JR 

RDTRKI 


OOAC 


dside: 



OOAC 

CB D7 

SET 

SIDEhA 

; SELECT SIDE 1 

OOAE 

CD FFF6 

CALL 

DSKSEL 


OOBl 

3A FFD2 

LD 

A»(FOCMD) 

; MODIFY READ COMMAND 

00B1 

F6 08 

OR 

SBIT 


00B6 

32 FFD2 

LD 

(FDCMD)»A 


00B9 


RDTRKi: 



00B9 

OE 01 

LD 

CjTRKIST 

J START FROM SECTOR 1 

OOBB 

IE OA 

LD 

EfTRKlEN 

{ END AT SECTOR 5 

OOBD 

CD OODF 

CALL 

RDSECS 

} READ IN SECTORS ON TRACK 1 

OOCO 

B7 

OR 

A 


OOCl 

CA 00C8 

JP 

ZjBIOSI 

; START EXECUTION OF BIOS 

00C1 


booterr: 





KimKXIIXXIXlXSXXIXXXKIKIimXXIIXIIXIIIli; 

THE FOLLORING INSTRUCTION HUST J 

BE added: ; 

A 

f 

DI i 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXi 


OOC^ 

F3 


DI 


00C5 

76 


HALT 


00C6 

0000 


DN 

0 

OOCB 


biosi: 



00C8 

3E 10 


Id 

srlOh 

OOCA 

D3 01 


out 

(1)>3 

OOCC 

3E 


Id 

3»11H 

OOCE 

D3 00 


out 

(0}f3 

OODO 

3E 26 


Id 

3f26h 

00D2 

D3 00 


out 

(0)»3 

00D1 

3E 25 


Id 

3»25h 

00D6 

D3 00 


out 

(0)^3 

00D8 

3E 6C 


Ld 

3f6ch 

OODA 

D3 00 


out 

<0)r3 

OODC 

C3 E200 

A 

jp 

bios 


ERRORf GO TO LOCAL MODE 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


RDSECS MULTIPLY SECTOR READ 



in: C - STARTING SECTOR NUMBER 

E - ENDING SECTOR NUMBER 
HL - STARTING DMA ADDRESS 
out: a - TYPE II STATUS 

REG(S) modified: AiBrC^HiL 
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OODF 

OODF 

06 OA 

RDSECSl 

LD 

B»RETRY 

OOEl 

OOEl 

E5 

fdrtry; 

PUSH 

HL ; 

00E2 

79 

LD 

ArC 

00E3 

03 12 

OUT 

(SEC)»A 

00E5 

3A FFD2 

LD 

A»(FDCHD) 

00E8 

CD FFF3 

CALL 

FDRHS 

OOEB 

B7 

OR 

A 

OOEC 

28 05 

JR 

Z»NXTSEC 

OOEE 

El 

POP 

HL ?l 

OOEF 

10 FO 

DJNZ 

FDRTRY 

OOFl 

18 07 

JR 

RDSRET 

00F3 

00F3 

FI 

NXTSEC5 

POP 

AF ; 

OOFl 

OC 

INC 

C f 

OOFS 

7B 

LD 

A>E 

00F6 

B9 

CP 

C 

00F7 

30 E8 

JR 

NCfFDRTRY 

0QF9 

97 

SUB 

A ; 

OOFA 

OOFA 

C9 

RDSRET5 

RET 

END 



i SET FOR RETYR 10 TIHES 


SAME CURRENT DHA 


} GET COHHAND 
? READ A SECTOR 


tREAD NEXT SECTOR IF NO ERROR 


JRETRY IF ERROR NITHIN 10 TRIALS 


SYNCHRONIZE PUSH POP 
NEXT SECTOR 

f GET HAXIHUH NUHBER OF SECTOR 

JREAD NEXT SECTOR IF NOT GREATER 
THAN SECTOR SIZE 
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PAGE 


S 


HacrosJ 

SyabolsJ 


D106 

BOOS 

9800 

BIAS 

E200 

BIOS 

00C8 

BIOSl 

0080 

BOOT 

00C1 

BOOTERR 

0080 

BOOTS 

CCOO 

CCP 

FFFC 

DELAY 

00A5 

DLYLP 

OOAC 

DSIDE 

FFF6 

DSKSEL 

FFD2 

FDCHD 

OOEl 

FDRTRY 

FFF3 

FORMS 

FFE2 

lOREG 

FFEl 

ITRREG 

FFCE 

LOCAL 

003A 

MSI2E 

00F3 

NXTSEC 

FFDB 

PBASE 

0082 

RDCHD 

OODF 

RDSECS 

OOFA 

RDSRET 

0089 

RDTRKl 

OOOA 

RETRY 

0008 

SBIT 

0012 

SEC 

FFD3 

SELBYT 

0058 

SICHD 

0005 

SIDE 

0002 

SIDEl 

0010 

SIDLY 

FFDi 

STEPS 

OOOA 

TRKOEN 

0002 

TRKOST 

OOOA 

TRKIEN 

0001 

TRKIST 

FFF9 

TYPEl 


No Fotol error(s) 








F. BIOS Listing 


f^\ 
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003A 

HSIZE 

EQU 

A 

f 

« 

.♦ 

f 

f 

58 ; CPH HEHORY SIZE IN KILOBYTES 

•BIAS" IS ADDRESS OFFSET FROH 3100H FOR HEHORY SYSTEHS 
THQN 16K 

OOOA 

PADDING EQLI 

10 

f PADDING 

OOOC 

FHFEED 

EQU 

OCH 

5 FORHFEED 

9800 

BIAS 

EQU 

09800H 

} (HSIZE-20)il021 

CCOO 

CCP 

EQU 

3100H+BIAS 

f BASE OF CCP 

D106 

BDOS 

EQU 

CCP+806H 

} BASE OF BDOS 

E200 

BIOS 

EQU 

CCP+1600H 

5 BASE OF BIOS 

0001 

CDISK 

EQU 

0001H 

5 CURRENT DISK NUHBER 0=Af...jl5=P 

0003 

lOBYTE 

EQU 

0003H 

5 INTEL I/O BYTE 

0000 

HARKST 

EQU 

OOOOH 

} HARH START VECTOR 

0001 

REBOOT 

EQU 

OOOIH 


0005 

SYSCAL 

EQU 

0005H 

; BDOS FUNCTION CALL VECTOR 

0006 

BDOSAD 

EQU 

0006H 



f 




j 

f 

COHHON AREA FOR UTILITIES 

FFD1 

COLNO 

EQU 

0FFD1H 

1 COLUHN NUHBER 

FFD6 

LINENO 

EQU 

0FF06H 

; LINE NUHBER 

FFD7 

SCSTART EQU 

0FFD7H 

} SCREEN START ADDRESS 

FFD9 

OFFSET 

EQU 

0FFD9H 

J SCREEN OFFSET 

FFDB 

OFFTHP 

EQU 

OFFDBH 

t SCREEN TEMPORARY OFFSET 

FFDD 

VBFLAG 

EQU 

OFFDDH 

} VBLANK FLAG 

FFDF 

SNITCH 

EQU 

OFFDFH 

f SYSTEH SNITCH 

FFEO 

HODREG 

EQU 

OFFEOH 

! HODE REGISTER 

FFEl 

IREG 

EQU 

OFFEIH 

; I REGISTER 

FFE2 

lOREG 

EQU 

0FFE2H 

J I/O CONTROL REGISTER 

FFE3 

DHAPTP 

EQU 

0FFE3H 

» DISK NUHBER TRANSLATION TABLE 

FFE5 

DPBTP 

EQU 

0FFE5H 

? DISK PARAMETER BASE TABLE 



♦ 

f 

COHHON AREA FOR SUBROUTINES TABLES IN PROH 


f 


FFE7 

PBASE 

EQU 

0FFE7H 


FFE7 

CONSTA 

EQU 

PBASE+OOH 

; CONSOLE STATUS ROUTINE 

FFEA 

CONINP 

EQU 

PBASE+03H 

f CONSOLE INPUT ROUTINE 

FFED 

HDRN 

EQU 

PBASE+06H 

> HARD DISK READ/NRITE SECTOR ROUTINE 

FFFO 

HDHCHD 

EQU 

PBASE+09H 

; HARD DISK COMMAND ROUTINE 

FFF3. 

FDRH 

EQU 

PBASE+OCH 

; FLOPPY DISK READ/NRITE SECTOR ROUTINE 

FFF6 

FDSEL 

EQU 

PBASE+OFH 

; SELECT FLOPPY DISK ROUTINE 



FFF9 

FDHCHD 

EQU 

PBASE+12H 

; FLOPPY DISK TYPE 1 COMMAND ROUTINE 

FFFC 

DELAY 

EQU 

PBASE+15H 

! DELAY 1 MS ROUTINE 



i 

i 

* 

GENERAL EQUATES 

0000 

PTRDAT 

EQU 

ODH 

J PARALLEL PRINTER DATA REGISTER 

0008 

KEYBD 

EQU 

08H 

; KEYBOARD REGISTER 

0018 

STATUS 

EQU 

18H 

; STATUS REGISTER 

0018 

CONTRL 

EQU 

IBH 

; CONTROL REGISTER 

0003 

HAXDSK 

EQU 

3 ? 

MAXIMUM NUMBER OF DISK DRIVES SUPPORTED 

00C3 

JdPCOD 

EQU 

0C3H 

j JUMP INSTRUCTION CODE 

0080 

RECLEN 

EQU 

80H 

J LOGICAL RECORD LENGTH 

0000 

DISKTY 

EQU 

0 ; 

DISK TYPE BIT 0 = FLOPPY DISK 




♦ 

1 = HARD DISK 

OOFF 

ON 

EQU 

OFFH 

1 FLAG ON 

0000 

OFF 

EQU 

0 ! 

FLAG OFF 

0000 

READ 

EQU 

0 > 

READ OPERATION 

0001 

NRITE 

EQU 

1 ; 

WRITE OPERATION 

OOOD 

CR 

EQU 

ODH 

} CARRIAGE RETURN 

OOOA 

LF 

EQU 

OAH 

} LINEFEED 

0000 

EOL 

EQU 

OOH 

» END OF LINE INDICATOR 

0000 

HRALL 

EQU 

0 ? 

WRITE TO ALLOCATED 

0001 

HRDIR 

EQU 

1 * 

WRITE TO DIRECTORY 

0002 

NRULA 

EQU 

L f 

WRITE TO UNALLOCATED 

0002 

SEKRTY 

EQU 

2 f 

SEEK RETRY 

OOOA 

RETRY 

EQU 

10 J 

READ/WRITE SECTOR RETRY 

FFFF 

TIHING 

EQU 

OFFFFH 

; TIMEOUT VALUE FOR LIST 

OOOA 

TVCNT 

EQU 

10 ; 

TV COUNTER 



t 

» 

f 

FLOPPY DISK PARAMETERS 

0010 

FDBASE 

EQU 

lOH 

; FLOPPY CONTROLLER BASE ADDRESS 

0010 

FDCMD 

EQU 

FDBASE+0 

; FLOPPY CONTROLLER COMMAND REGISTER 

0010 

FDSTAT 

EQU 

FDBASE+0 

; FLOPPY CONTROLLER STATUS REGISTER 

0011 

FDTRK 

EQU 

FDBASE+l 

} FLOPPY CONTROLLER TRACK REGISTER 

0012 

FDSEC 

EQU 

FDBASE+2 

1 FLOPPY CONTROLLER SECTOR REGISTER 

0013 

FDOATA 

EQU 

FDBASE+3 

; FLOPPY CONTROLLER DATA REGISTER 

OOOC 

HOHEFD 

EQU 

OOOOllOOB 

; FLOPPY DISK HOME COMMAND 

OOlC 

SEEKFD 

EQU 

OOOlllOOB 

i FLOPPY DISK SEEK COMMAND 

005C 

STEPFD 

EQU 

OlOlllOOB 

} FLOPPY DISK STEP IN COMMAND 

0082 

READFD 

EQU 

lOOOOOlOB 

» FLOPPY DISK READ SECTOR COMMAND 

00A2 

NRITFD 

EQU 

lOlOOOlOB 

5 FLOPPY DISK WRRITE SECTOR COMMAND 

0003 

SIDE 

EQU 

3 ; 

FLOPPY DISK COMMAND SIDE BIT 

0007 

FDERR 

EQU 

7 ; 

FLOPPY DISK ERROR 

0006 

MRPROT 

EQU 

6 ? 

WRITE PROTECTED 

0090 

SKERR 

EQU 

lOOlOOOOB 

} SEEK ERROR 

0001 

RNFERR 

EQU 

1 


0002 

FDISKl 

EQU 

OOOOOOlOB 

I SSDD» 10 TRACKS 

0001 

FDISK2 

EQU 

OOOOOIOOB 

; OSDD» 10 TRACKS 



0008 


; OSDDj 80 TRACKS 


FDISK3 EQU OOOOIOOOB 


> 




» 

5 

HARH 

BOOT PARAHETERS 

0002 

TRKOST 

EQU 

2 

i MARH BOOT START SECTOR ON TRACK 0 

OOOA 

TRKOEN 

EQU 

10 

; HARH BOOT END SECTOR ON TRACK 0 

0001 

TRKIST 

EQU 

1 

f HARH BOOT START SECTOR ON TRACK 1 

0002 

TRKIEN 

EQU 

n 

L 

; HARH BOOT END SECTOR ON TRACK 1 


f 




f 

f 

HARD DISK 

PARAHETERS 

0030 

HDBASE 

EQU 

30H 

; HARD DISK CONTROLLER BASE ADDRESS 

0030 

HDDATA 

EQU 

HDBASE+0 

5 HARD DISK DATA REGISTER 

0031 

HDPRCH 

EQU 

HDBASE+i 

; HARD DISK PRECOHPENSATION REGISTER 

0033 

HDSEC 

EQU 

HDBASE+3 

? HARD DISK SECTOR REGISTER 

0031 

HDCYLL 

EQU 

HDBASE+1 

5 HARD DISK CYLINDER HIGH BYTE REGISTER 

0035 

HDCYLH 

EQU 

HDBASE+5 

; HARD DISK CYLINDER LOH BYTE REGISTER 

0036 

HDSEL 

EQU 

HDBASE+6 

? HARD DISK SECTOR/HEAD/DRIME REGISTER 

0037 

HDCHD 

EQU 

HDBASE+7 

f HARD DISK COMHAND REGISTER 

0037 

HDSTAT 

EQU 

HDBASE+7 

? HARD DISK STATUS REGISTER 

0010 

HOHEHD 

EQU 

OOOIOOOOB 

} HARD DISK RESTORE COHHAND 

0020 

READHD 

EQU 

OOlOOOOOB 

> HARD DISK READ COHHAND 

0030 

HRITHD 

EQU 

OOllOOOOB 

; HARD DISK HRITE COHHAND 

0020 

PRECHP 

EQU 

20H 

f HARD DISK PRECOHPENSATION VALUE 

0007 

HEAD 

EQU 

0000011IB 

f HEAD SELECT 

0007 . 

HDERRZ 

EQU 

7 t 

HARD DISK ERROR 

0003 

HDISKl 

EQU 

0000001IB 

5 5HB HARD DISK 

0005 

HDISK2 

EQU 

OOOOOIOIB 

; lOHB HARD DISK 



j 

« 

CONTROL REGISTER BIT ASSIGNHENT 

0000 

SELFA 

EQU 

0 ; 

SELECT FLOPPY DRIVE A 

0001 

SELFB 

EQU 

1 ? 

SELECT FLOPPY DRIVE B 

0002 

SELSID 

EQU 

2 ; 

SELECT FLOPPY SIDE 

0003 

PTRSTR 

EQU 

3 ; 

PRINTER STROBE 

0001 

KBDINT 

EQU 


KEYBOARD INTERRUPT HASK 

0005 

PRINT 

EQU 

5 f 

PRINTER INTERRUPT HASK 

0006 

HDINT 

EQU 

6 t 

HARD DISK INTERRUPT HASK 



} 

5 

J 

STATUS REGISTER BIT ASSIGNHENT 

0005 

PTRBSY 

EQU 

5 J 

PRINTER BUSY 

0001 

KCAPLK 

EQU 

1 t 

KEYBOARD CAPITAL LOCK 

OOOE 

INTREQ 

EQU 

00001 HOB 

; INTERRUPT REQUEST ID 

0000 

INTRPT 

EQU 

0 ; 

INTERRUPT REQUEST 
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f 

i 

t 

SYSTEM 

SNITCHES 


0000 

PROMPT 

EQU 

0 

; PROMPT SUPPRESS 


0001 

TV 

EQU 

♦ 

1 

? TV/MONITOR 


; PROGRAHHABLE VIDEO TIMING CONTROLLER PARAMETERS 


# 

; REGISTER ASSIGNMENTS 

t 


0000 

VTCBASE 


EQU 

OOH 



0000 

VTCINI 


EQU 

VTCBASE+OOH 

J 

INITALIALIZATION REGISTER 

0001 

VTCSTA 


EQU 

VTCBASE+OIH 

4 

STATUS REGISTER 

0001 

VTCCMD 


EQU 

VTCBASE+OIH 

f 

COMMAND REGISTER 

0002 

VTCSCl 


EQU 

VTCBASE+02H 

t 

SCREEN START REGISTER LOWER BYTE 

0003 

VTC3C2 


EQU 

VTCBASE+03H 

J 

SCREEN START REGISTER UPPER BYTE 

0001 

VTCCUl 


EQU 

VTCBASE+OIH 

i 

CURSOR REGISTER LONER BYTE 

0005 

VTCCU2 


EQU 

VTCBASE+05H 

5 

CURSOR REGISTER UPPER BYTE 

0006 

VTCPTl 


EQU 

VTCBASE+06H 

? 

POINTER REGISTER LONER BYTE 

0007 

VTCPT2 


EQU 

VTCBASE+07H 

4 

POINTER REGISTER UPPER BYTE 

OOOD 

VTCINP 


EQU 

VTCBASE+ODH 

? 

INPUT DATA REGISTER 

OOlC 

VTCDAT 


EQU 

VTCBASE+ICH 

i 

OUTPUT DATA REGISTER 

OOID 

VTCMOD 


EQU 

VTCBASE+IDH 

J 

MODE REGISTER 



f 

♦ 

PVTC COMMANDS 




0000 

RESET 


EQU 

OOOOOOOOB 

f 

MASTER RESET 

OOAB 

NRINC 


EQU 

lOlOlOllB 

♦ 

WRITE AT CURSOR AND INCREMENT 

OOBB 

NRCP 


EQU 

lOlllOllB 

5 

WRITE FROM CURSOR TO POINTER 

OOAA 

NRCUR 


EQU 

lOlOlOlOB 

# 

NRITE AT CURSOR 

OOAC 

RDCUR 


EQU 

lOlOllOOB 

i 

READ AT CURSOR 

00A1 

RDPT 


EQU 

lOlOOlOOB 

i 

READ AT POINTER 

001C 

MODE 


EQU 

OlOOllOOB 

t 

MODE REGISTER 

003D 

ONDICU 


EQU 

OOllllOlB 

t 

TURN ON CURSOR 8 DISPLAY 

0031 

ONCUR 


EQU 

OOllOOOlB 

f 

TURN ON CURSOR 

0030 

OFFCUR 


EQU 

OOllOOOOB 

f 

TURN OFF CURSOR 

0029 

ONDIS 


EQU 

OOIOIOOIB 

} 

TURN ON DISPLAY 

0028 

OFFDIS 


EQU 

OOlOlOOOB 

} 

TURN OFF DISPLAY 

0010 

RSTFLG 


EQU 

OlOOOOOOB 

f 

RESET FLAGS 



f 

* 

INITIALIZATION REGISTERS 



0011 

IRO 


EQU 

OlOOOlOOB 



0032 

IRl 


EQU 

OOllOOlOB 



OOOC 

IR2 


EQU 

OOOOllOOB 



OOAA 

IRS 


EQU 

lOlOlOlOB 





0017 

IR1 

EQU 

OOOlOlllB 


004F 

IRS 

EQU 

OlOOllllB 


0009 

IR6 

EQU 

OOOOIOOIB 


0029 

IR7 

EQU 

OOIOIOOIB 


0080 

IRS 

EQU 

lOOOOOOOB 


0010 

IR9 

EQU 

OOOIOOOOB 


0097 

IRIO 

EQU 

lOOlOlllB 



j 

j 

) 

MODE REGISTER BIT ASSIGNMENT 


0000 

C0L10 

EQU 

0 

» 10 COLUMN 

0001 

ROERSE 

EQU 

1 

f REVERSE VIDEO 

0002 

HGHINT 

EQU 

£. 

; HIGH INTENSITY 

0003 

GRAPHIC 

EQU 

3 

* GRAPHIC 

0001 

INTLCE 

EQU 

1 

5 INTERLACE 

0005 

BHSCH 

EQU 

5 

f BLACK 8 NHITE SCREEN 

0006 

BLOCK 

EQU 

6 

i BLOCK 

0007 

BEEP 

EQU 

7 

1 ALARM SOUND 


f FLAGS 

f 


0005 

RDYFLG 

EQU 

5 

f PVTC READY FOR COMMAND 

0001 

VBLANK 

EQU 

1 

; VBLANK PERIOD 

0003 

LINEO 

EQU 

3 

i LINE ZERO 

0002 

SPLIT 

EQU 

2 

5 SPLIT SCREEN 

0080 

FORGND 

EQU 

lOOOOOOOB 

} FOREGROUND CHARACTER BIT 

0018 

INTMSK 

EQU 

OOOllOOOB 

} VBLANK S LINE 0 INTERRUPTS 


t 




f 

i 

ADDRESS 




0080 

STADR 


EQU 

080H 


SCREEN START ADDRESS 

07FF 

ENDADR 


EQU 

7FFH 

4 

SCREEN END ADDRESS 



f 

* 

CONSTANTS 




0020 

BLANK 


EQU 

20H 



007E 

TILDA 


EQU 

7EH 



0037 

COLBH 


EQU 

37H 



0038 

COLFH 


EQU 

38H 



0039 

LEFT 


EQU 

39H 



0030 

RIGHT 


EQU 

30H 



0050 

MAXCOL 


EQU 

80 

f 

MAXIMUM COLUMNS PER RON 

0017 

MAXLIN 


EQU 

23 

} 

MAXIMUM ROH - 1 

0028 

MAXTVC 


EQU 

10 

f 

MAXIMUM TV COLUMNS PER ROH 

0028 

MAXOFF 


EQU 

MAXCOL-MAXTVC 

f 

SCREEN OFFSET FOR TV 

0005 

MARGIN 


EQU 

5 

f 

SCREEN HINDOH MARGINS 

OOID 

HIDTH 


EQU 

MAXTVC-MARGIN-MARGIN-l 
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f OFFSET BETWEEN LEFT I RIGHT LIHITS 

ORG BIOS 


i 

} JUMP VECTOR FOR INDIVIDUAL SUBROUTINES 

t 


E200' 

C3 E378' 

JP 

BOOT 

*COLD START 

E203' 

C3 E3E2‘ 

WBOOTEJ JP 

WBOOT 

*WARH BOOT 

E206' 

C3 E1A8' 

JP 

CONST 

JCONSOLE STATUS 

E209' 

C3 E1E1' 

JP 

CONIN 

.CONSOLE CHARACTER IN 

E20C' 

C3 E59D' 

JP 

CONOUT 

JCONSOLE CHARACTER OUT 

E20F' 

C3 EB5B' 

JP 

LIST 

5LIST CHARACTER OUT 

E212' 

C3 EBE2' 

JP 

PUNCH 

.PUNCH CHARACTER OUT 

E215’ 

C3 EBE5' 

JP 

READER 

IREADER CHARACTER OUT 

E218' 

C3 EBE8’ 

JP 

HOHE 

JHOVE HEAD TO HOHE POSITION 

E21B' 

C3 EBFO’ 

JP 

SELDSK 

;SELECT DISK 

E21E’ 

C3 EBEB’ 

JP 

SETTRK 

?SET TRACK NUHBER 

E221‘ 

C3 EC82' 

JP 

SETSEC 

JSET SECTOR NUHBER 

E221' 

C3 EC99' 

JP 

SETDHA 

;SET DHA ADDRESS 

E227' 

C3 ECBl’ 

JP 

RDDISK 

IREAD DISK 

E22A' 

C3 EC9F' 

JP 

WRDISK 

JWRITE DISK 

E22D' 

C3 EB91' 

JP 

LISTST 

{RETURN LIST STATUS 

E230' 

C3 EC87' 

JP 

SECTRAN 

{SECTOR TRANSLATE 



A 

t 

* 

i 

LOGICAL TO PHYSICAL DISK TRANSLATION TABLE 

E233' 

02 FF FF FF 

DSKHAPI DB 

2*0FFH*0FFH*0FFH 


DISK PARAHETER HEADERS FOR UP TO 5 TYPES OF ON-LINE DRIVES 


DISK PARAHETER HEADER FOR DISK 00 
5' SINGLE-SIDEDj DOUBLE-DENSITY» 10 TRACKS 


E237‘ 

E29B' 0000 

DPBASEl DW 

E23B' 

0000 0000 

DW 

E23F' 

F0C2' E2C1' 

DN 

E213' 

F296' F112' 

DW 

E217' 

E31F' E30F' 

DW 


t 

> 


t 


E21B' 

E29e' 

0000 

DW 

E21F' 

0000 0000 

DW 

E253' 

F0C2' 

E2D3‘ 

DW 

E257' 

F2A6' 

F11E' 

DW 


TRANSOfOOOOH 

OOOOHjOOOOH 

DIRBFjDPBLKO 

CHKOOfALLOO 

DISKOrTABO 


DISK PARAHETER HEADER FOR DISK 01 
5' DOUBLE-SIDED* DOUBLE DENSITY* 80 TRACKS 


TRANSO*OOOOH 

OOOOH*OOOOH 

0IRBF*DPBLK1 

CHK01*ALL01 
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E25B' 

E32A’ E30F' 

DU 

DISKhTABO 




f 

i 

f 

» 

DISK PARAMETER HEADER FOR DISK 02 

5' DOUBLE-SIDEDr DOUBLE DENSITYr 80 TRACKS 


E25F' 

E29B' 0000 

ou 

TRANSOfOOOOH 


E263' 

0000 0000 

DW 

OOOOH»OOOOH 


E267' 

F0C2' E2E2’ 

DU 

DIRBFjDPBLK2 


E26E1‘ 

F2E6' F17F' 

DU 

CHK02jALL02 


E26F‘ 

E335' E30F' 

DU 

DISK2»TAB0 




> 

DISK PARAMETER HEADER FOR DISK 03 




* 

5 MB UINCHESTER HARD DISK 


E273' 

0000 0000 

DU 

OOOOHjOOOOH 


E277' 

0000 0000 

DU 

OOOOHfOOOOH 


E27B' 

F0C2' E2F1' 

DU 

DIRBF,DPBLK3 


E27F' 

0000 F1B0‘ 

DU 

0000H.ALL03 


E2e3' 

E310' E317' 

DU 

DISKSfTABS 




f 

1 

DISK PARAMETER HEADER FOR DISK 01 





10 MB UINCHESTER HARD DISK 




i 



E287' 

0000 0000 

DU 

OOOOHtOOOOH 


E28B‘ 

0000 0000 

DU 

OOOOH»OOOOH 


E28F' 

F0C2' E300' 

DU 

DIRBFrDPBLKI 


E293' 

0000 FIFD’ 

DU 

OOOOHfALLOl 


E297- 

E31B' E317' 

DU 

DISKI»TABS 




5 

5 

J 

SECTOR TRANSLATION TABLE FOR 5’ DOUBLE DENSITY 


E29B' 

28 

TRANSO: DB 

10 J LAST SECTOR ON DISK 


E29C' 

01 02 03 01 

DB 

h2r3i1 5 SKEU FACTOR = 2 


E2A0' 

09 OA OB OC 

OB 

9fl0jllfl2 


E2A'I' 

11 12 13 11 

DB 

17jl8fl9j20 


E2A8' 

19 lA IB 1C 

DB 

25»26>27f28 


E2AC' 

21 22 23 21 

DB 

33f31»35»36 


E2B0' 

05 06 07 08 

DB 

5,6»7f8 


E2B1' 

OD OE OF 10 

DB 

13»11fl5jl6 


E2B8' 

15 16 17 18 

DB 

21»22j23»21 


E2BC’ 

ID IE IF 20 

OB 

29.30f3h32 


E2C0' 

25 26 27 28 

DB 

37»38>39»10 




? 

» 

f 

DISK PARAMETER BLOCK FOR 5' SINGLE-SIDED DOUBLE DENSITY 
512 BYTES/SECTORf 10 SECTORS/TRACKr 10 TRACKS 




5 

? 

2 SYSTEM TRACKS 
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E2C4' 

0028 

DPBLK05 DH 

40 5 SECTORS PER TRACK (SPT) 

E2C6' 

04 

DB 

4 } BLOCK SHIFT FACTOR (BSH) f BLS = 2048 

E2C7' 

OF 

DB 

15 > BLOCK MASK (BLH) 

E2C8' 

01 

DB 

1 i EXTENT MASK (EXM) 

E2C9' 

005E 

DH 

94 ; DISK SIZE-1 (DSM) 

E2CB' 

003F 

DH 

63 ; DIRECTORY MAX (DRM) 

E2CD' 

80 

DB 

128 t ALLOC 0 (ALO) 

E2CE' 

00 

DB 

0 t ALLOC 1 (ALl) 

E2CF' 

0010 

DH 

16 ; CHECK SIZE (CKS) 

E2D1' 

0002 

DH 

2 ; RESERVED TRACKS (OFF) 




5 

f 

DISK PARAMETER BLOCK FOR 5* DOUBLE-SIDED DOUBLE DENSITY 
512 BYTES/SECTOR. 10 SECTORS/TRACK» 80 TRACKS/SIDE 



4 

4 

2 SYSTEM TRACKS 

E2D3' 

0028 

DPBLKi: DH 

40 

E2D5' 

04 

DB 

4 5 BLS = 2048 

E2D6' 

OF 

DB 

15 

E2D7' 

00 

DB 

0 

E2D8' 

018A 

DH 

394 

E2DA' 

007F 

DH 

127 

E2DC' 

CO 

DB 

192 

E2DD' 

00 

DB 

0 

E2DE' 

0040 

DH 

64 

E2E0‘ 

0002 

DH 

2 



» 

> 

DISK PARAMETER BLOCK FOR 5* DOUBLE-SIDED DOUBLE DENSITY 


• 

! 

512 BTYES/SECTORf 10 SECTORS/TRACKr 80 TRACKS/SIDE 



f 

3 SYSTEM TRACKS 


) 


E2E2' 

0028 

DPBLK2J DH 

40 

E2E4' 

04 

DB 

4 ; BLS = 2048 

E2E5' 

OF 

DB 

15 

E2E6' 

00 

DB 

0 

E2E7' 

0187 

DH 

391 

E2E9’ 

OOFF 

DH 

255 

E2EB' 

FO 

DB 

240 

E2EC' 

00 

DB 

0 

E2ED' 

0040 

DH 

64 

E2EF' 

0003 

DH 

3 



* 

f 

ft 

f 

DISK PARAMETER BLOCK FOR 5 MB HINCHESTER HARD DISK 



f 

ft 

512 BYTES/SECTORf 16 SECTORS/TRACKf 154 TRACKSr 4 HEADS 

E2F1' 

0040 

DPBLK3} DH 

64 

E2F3' 

06 

DB 

6 5 BLS = 8192 

E2F4' 

3F 

DB 

63 

E2F5' 

03 

DB 

3 

E2F6' 

0265 

DH 

613 
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E2F8' 

03FF 

DN 

1023 

E2FA‘ 

FO 

DB 

240 

E2FB’ 

00 

DB 

0 

E2FC' 

0000 

DN 

0 

E2FE' 

0002 

DN 

2 



5 

♦ 

i 

t 

DISK PARAMETER 1 
512 BYTES/SECTOI 

E300’ 

0040 

DPBLK4! DN 

64 

E302’ 

06 

DB 

6 ; BLS = 8192 

E303’ 

3F 

DB 

63 

E304' 

03 

DB 

3 

E305' 

04C2 

DN 

1218 

E307’ 

07FF 

ON 

2047 

E309' 

FF 

DB 

255 

E30A’ 

00 

DB 

0 

E30B’ 

0000 

DN 

0 

E30D' 

0002 

DN 

2 


FLOPPY DOUBLE DENSITY TABLE 


E30F' 0200 

E311' 0800 

E313’ 04 

E314‘ 28 

E315‘ 03 

E316‘ 02 


TABOl DH 
DN 
DB 


5 HOST BUFFER SIZE 
f HOST ALLOCATION BLOCK SIZE 
CF7M SECTOR PER HOST BUFFER ( HSTBLK ) 
LOGICAL SECTOR PER TRACK 
SECTOR HASK ( HSTBLK - 1 ) 

L0G2( HSTBLK ) 


HARD DISK TABLE 


E3i?' 0200 

E319' 2000 

E31B' 04 

E31C' 40 

E31D' 03 

E3iE' 02 


tabs; DH 

DN 

DB 

DB 

DB 

DB 


CURRENT VALUES FOR THE 5 DISKS 


E31F' 02 


E320’ 0200 

E322' 03 

E323' 01 

E324' 02 


DISKO; DB OOOOOOlOB J FLOPPY DISK SELECT BYTE 

} BIT 2 = SIDE 

1 BIT 1 = SELECT FLOPPY DRIVE B 

I BIT 0 = SELECT FLOPPY DRIVE A 

DW 512 ; SECTOR SIZE 

DB 3 5 STEPPING RATE 

OB 1 i SIDES 

DB FDISKl ; DISK TYPE 
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E325' 

0000 


DN 

E327' 

OA 


DB 

E328' 

0028 


DH 

E32A' 

02 

DISKi: 

DB 

E32B' 

0200 


DN 

E320' 

00 


DB 

E32E' 

02 


DB 

E32F' 

04 


DB 

E330‘ 

0000 


DH 

E332' 

OA 


DB 

E333' 

0050 


DN 

E335' 

01 

DISK2! 

DB 

E336‘ 

0200 


DN 

E338' 

00 


DB 

E339' 

02 


DB 

E33A' 

08 


DB 

E33B' 

0000 


DN 

E33D' 

OA 


DB 

E33E' 

0050 


DN 

E340' 

20 

DISKS! 

DB 


E341' 

0200 

DN 

E343' 

06 

DB 

E344' 

04 

DB 

E345' 

03 

DB 

E346' 

0000 

DN 

E348' 

10 

DB 

E349' 

009A 

DN 


0 i LAST TRACK ACCESSED 

10 5 PHYSICAL SECTORS/TRACK 

40 J CYLINDERS 

ooooooloe 

512 

0 

2 

F0ISK2 

0 

10 

80 

000000018 

512 

0 

2 

FDISK3 

0 

10 

80 

001000008 ? HARD DISK SELECT BYTE 

J BIT 7 = 0 

I BIT 6f5 = SECTOR SIZE 

J BIT 4 - 3 = DRIVE 

» BIT 2 - 0 = HEAD 

512 

06H J 3 MS 

4 

HDISKl 

0 

16 

154 


E34B‘ 20 DISK4! DB OOlOOOOOB 1 HARD DISK SELECT BYTE 

; BIT 7 = 0 

f BIT 6,5 = SECTOR SIZE 
; BIT 4 - 3 = DRIVE 
; BIT 2 - 0 = HEAD 


E34C' 

0200 

DN 

512 

E34E' 

06 

DB 

06H 

E34F' 

04 

DB 

4 

E350' ■ 

05 

DB 

HDISK2 

E351' 

0000 

DN 

0 

E353- 

10 

DB 

16 

E354' 

0131 

DN 

305 


5 END OF FIXED TABLES 


E356' 

30 30 6B 20 

DB 

'00k • 

E35A' 

43 50 2F 4D 

SIGNON! DB 

■CP/H vers 2,2 (STH REL. 1.01)'fEOL 

E35E' 

20 76 65 72 



E362' 

73 20 32 2E 
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E366' 

E36A' 

^ E36E' 

E372‘ 
E376' 


INDIVIDUAL SUBROUTINES TO PERFORM EACH FUNCTION 


; COLD BOOT 

f 


32 20 28 53 
54 4D 20 52 
45 4C 2E 20 
31 2E 30 31 
29 00 


i 

f PARAMETER INITIALIZATION 
5 


E378’ 

3E 20 

BOOT! LD 

A.BLANK 

; CLEAR SCREEN 

E37A' 

D3 1C 

OUT 

(VTCDAT).A 


E37C' 

21 0080 

LD 

HL.STADR 


E37F' 

7D 

LD 

A.L 


E380' 

D3 04 

OUT 

(VTCCUD.A 


E382' 

7C 

LD 

A.H 


E383‘ 

D3 05 

OUT 

(VTCCU2).A 


E385' 

21 07FF 

LD 

HL.ENDADR 


E388' 

7D 

LD 

A.L 


E389' 

D3 06 

OUT 

(VTCPTl)fA 


E38e‘ 

7C 

LD 

A.H 


E38C’ 

D3 07 

OUT 

(VTCPT2)fA 


E38E' 

3E BB 

LD 

A.HRCP 


E390‘ 

CD EB2D' 

CALL 

WAIT 


E393' 

21 0080 

LD 

HL.STADR 


E396' 

22 FFD7 

LD 

(SCSTART)fHL 

; SAVE SCREEN START ADDRESS 

E399' 

7D 

LD 

A.L 


E39A' 

D3 04 

OUT 

(VTCCUD.A 


E39C' 

D3 02 

OUT 

(VTCSCD.A 


E39E' 

7C 

LD 

A.H 


E39F' 

D3 05 

OUT 

(VTCCU2).A 


E3A1' 

03 03 

OUT 

(VTCSC2).A 


E3A3’ 

AF 

XOR 

A 


E3A4' 

32 0003 

LD 

(lOBYTE).A 

. CLEAR THE lOBYTE 

E3A7' 

32 0004 

LD 

(CDISK).A 

} SELECT DISK ZERO 

E3AA' 

32 FFOF 

LD 

(SNITCH).A 

} CLEAR SNITCHES 

E3AD' 

32 FFD4 

LD 

(COLNO).A 

. SET TO COLUMN 0 

E3B0' 

32 FFD5 

LD 

(COLNO+D.A 


E3B3‘ 

32 FFD6 

LD 

(LINENO).A 

; SET TO LINE 0 

E3B6' 

32 FFD9 

LD 

(OFFSET).A 

5 SET SCREEN OFFSET TO 0 

E3B9‘ 

32 FFDA 

LD 

(OFFSET+D.A 


E3BC' 

21 E233' 

LD 

HL.DSKMAP 

. GET UP DISK TRANLATION TABLE ADDRESS 

E3BF' 

22 FFE3 

LD 

(DMAPTP).HL 

} SAVE VAUE 

E3C2' 

21 E237' 

LD 

HL.DPBASE 

f POINT TO DISK PARM BASE 

E3C5' 

22 FFE5 

LD 

(DPBTP).HL 

; SAVE VALUE 

E3C8' 

21 E35A' 

LD 

HL.SI6N0N 

; PRINT SIGN ON MESSAGE 



} INITIALIZE AND GO TO CP/H 
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E3CB‘ 

CD 

E3D1' 

CALL 

PMSG 

E3CE' 

C3 

E454' 

JP 

GOCPM 


TO PRINT OUT A HESSAGE 

INJ HL = ADDRESS OF MESSAGE 

OUTi NONE 

changed: NONE 


E301' 

F5 

PMSG: PUSH 

AF 


E3D2’ 

C5 

PUSH 

BC 


E3D3’ 

E5 

PUSH 

HL 


E3D4' 

7E 

LD 

Aj(HL) 


E3D5' 

4F 

PHSGl! LD 

CjA 

? GET BYTE FROM HESSAGE 

E3D6' 

CD E59D' 

CALL 

CONOUT 

; SEND BYTE OUT 

E309' 

23 

INC 

HL 


E3DA' 

7E 

LD 

A!(HL) 

f CHECK IF END OF HESSAGE 

E3DB' 

B7 

OR 

A 


E3DC’ 

20 F7 

JR 

NZjPMSGI 


E3DE' 

El 

POP 

HL 


E3DF' 

Cl 

POP 

BC 


E3E0' 

FI 

POP 

AF 


E3E1' 

C9 

RET 





« 

k 

t 

i 

HARM BOOT 


E3E2' 

3A FFEl 

WBOOT! LD 

A»(IREG) 

i GET I REGISTER VALUE 

E3E5' 

ED 47 

LD 

IrA 

J SET I REGISTER 

E3E7' 

FB 

El 

5 ENABLE INTERRUPTT 

E3E8' 

31 0080 

LD 

SPfSOH 

; SET STACK POINTER 

E3EB’ 

3A F0A7' 

LD 

AjCBUFACT) 

f CHECK IF BUFFER ACTIVE 

E3EE' 

FE FF 

CP 

ON 


E3F0' 

CC EDA5' 

CALL 

ZjHRHST 

; FLUSH BUFFER 

E3F3' 

16 OA 

LD 

DrRETRY 

; SET HARM BOOT RETRY COUNT 



i 

) 

SELECT DRIVE 0 


E3F5' 

OE 00 

NBOOTlt LD 

C»0 

> SELECT DISK 0 

E3F7’ 

59 

LD 

E»C 

f RESTORING DISK 0 

E3F8' 

CD EBFO' 

CALL 

SELDSK 


E3FB' 

38 4C 

JR 

CiHBERR 

{ SELECT ERROR* RETRY 

E3FD' 

OE 02 

LD 

CjTRKOST 

; READ TRACK 0 

E3FF' 

IE OA 

LD 

E.TRKOEN 


E401' 

21 CCOO 

LD 

HLjCCP 

; LOAD AT CCP 

E404’ 

3E 82 

LD 

AfREADFD 

? GET READ COMMAND 
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E106' 

32 FOAD' 

LD 

(DSKCMD)fA ? 

SAVE COMMAND 

EW 

CD E48B' 

CALL 

RDSECS ; 

READ SECTORS 

EW 

38 38 

JR 

CrNBERR ? 

READ ERROR. RETRY 

E40E' 

3A Foez' 

LD 

A»(SIDES) 5 

GET NUMBER OF SIDES 

mv 

FE 01 

CP 

1 1 CHECK IF SINGLE-SIDED 

E113' 

20 OE 

JR 

NZjTNOSID J 

NO. DOUBLE-SIDED 

EA15' 

3A FOBl' 

LD 

A,(STEPS) f 

GET STEPPING RATE OF BOOT DISK 

E^IB' 

F6 5C 

OR 

STEPFD 5 

PUT INTO STEP IN COMMAND 

E41A' 

CD FFF9 

CALL 

FDHCMD ? 

STEP IN 

E11D' 

E6 90 

AND 

SKERR i 

CHECK IF ERROR 

EAIF' 

20 28 

JR 

NZrNBERR i 

ERROR. RETRY 

E121' 

18 10 

JR 

RDTRKl ; 

READ TRACK 1 

E123' 

3A F0AE‘ 

THOSIDJ LD 

Af(SELBYT) f 

GET SELECT BYTE 

E426' 

CB D7 

SET 

SELSID.A » 

SELECT SIDE 1 

E428' 

CD EDD6' 

CALL 

DSKSEL 


E42B' 

3A FOAD' 

LD 

Aj(dskcmd) ; 

MODIFY READ COMMAND 

Efl2E' 

CB DF 

SET 

SIDE r A 


E430' 

32 FOAD' 

LD 

(DSKCMD)jA 


E'lSS' 

OE 01 

RDTRKl! LD 

CrTRKlST ; 

READ TRACK 1 

E135' 

IE 02 

LD 

EtTRKIEN 


E137' 

CD E48B' 

CALL 

RDSECS f 

READ SECTORS 

E13A‘ 

38 OD 

JR 

CjMBERR 5 

READ ERROR. RETRY 

E13C' 

AF 

XOR 

A 


E13D' 

32 CC07 

LD 

(CCP+7)»A ; 

CLEAR AUTO EXECUTION 

EW 

2A FOBC 

LD 

HL>(LSTADR) 5 

GET LAST TRACK ADDRESS 

EA13' 

36 01 

LD 

(HL)»1 } 

UPDATE LAST TRACK 

El'IS' 

23 

INC 

HL 


m6' 

77 

LD 

(HL)tA 


EW 

18 OB 

JR 

GOCPM 


EW 

15 

NBERRt DEC 

D » HARM BOOT ERROR 

E41A' 

20 A9 

JR 

NZfNBOOTl 


im' 

21 EFE3‘ 

LD 

HL,ERMSG5 


EW 

CD E3D1' 

CALL 

PMSG 


E452' 

F3 

DI 



E453' 

76 

HALT 

f HALT 



SET UP VECTORS 
A = 0 




E454' 

21 F09D' 

GQCPMl 

LD 

E457’ 

06 11 


LD 

E459' 

77 

LOOPO5 

LD 

E45A’ 

23 


INC 

E45e' 

10 FC 


DJNZ 


HL»HRTYPE J INITIALIZE DATA AREA 

B»17 

(HL)fA 

HL 

LOOPO 


E15D' 01 FFFF 

E160' ED « F576 


LD 

lI) 


BCfTIHING 
(TIMER)fBC 


} INITIALIZE LIST DEVICE TIMER 
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EW 

3E C3 

LD 

AiJMPCOD 

5 GET JUMP INSTRUCTION 


E466' 

32 0000 

LD 

(HARMS!)»A 

; SAME IN HARM START MECTOR 

EW 

21 E203' 

LD 

HL»HB00TE 

f POINT TO HARM BOOT ENTRY POINT 


E46C' 

22 0001 

LD 

(REBOOT)jHL 



EW 

32 0005 

LD 

(SYSCAL)fA 

} SET UP SYSTEM CALL MECTOR 


zm' 

21 D«6 

LD 

HL»BD0S 

f POINT TO BDOS ENTRY POINT 


E475' 

22 0006 

LD 

(8D0SAD)>HL 



m 

-42i 

CO 

21 0E2D' 

LD 

HLjSHLEAD-BIOS 



E17B' 

22 FAFE 

LD 

(OFAFEH)jHL 



EVE' 

01 0080 

LD 

BC»80H 

> DEFAULT DMA ADDRESS IS 80H 


E181' 

CD EC99' 

CALL 

SETDMA 



ElSr 

3A 0001 

LD 

A»(CDISK) 

; GET CURRENT DISK NUMBER 


EW 

IF 

LD 

CiA 

5 SEND TO THE CCP 


E488' 

C3 CCOO 

JP 

CCP 

t GO TO CP/M FOR FURTHER PROCESSING 


f 





f 

MULTIPLY SECTOR FLOPPY READ 




f 

f 

t 

in: 

C = STARTING SECTOR NUMBER 

E = ENDING SECTOR NUMBER 




k 

f 


HL = STARTING DMA ADDRESS 




f 

out: 

A = TYPE II STATUS 




1 


CARRY ON = ERROR RETURN 




} 

5 

changed; 

AfBjCfHfL 


E18B' 

06 OA 

RDSECSJ LD 

BfRETRY 

i GET RETRY COUNT 


E180' 

E5 

rdstry: push 

HL ; SAME CURRENT DMA 

E18E' 

79 

LD 

A>C 

f SET SECTOR REGISTER 


EW 

D3 12 

OUT 

(FDSEC)»A 



E191' 

3A FOAD' 

LD 

Ar(DSKCMD) 

; GET READ COMMAND 


EW 

CD FFF3 

CALL 

FDRH 

; READ A SECTOR 


E197' 

B7 

OR 

A 



E198‘ 

28 06 

JR 

ZjNXTSEC 

i NO ERROR? READ NEXT SECTOR 


E19A' 

El 

POP 

HL : ERR0R» RESTORE OLD DMA 


E19B' 

10 FO 

DJNZ 

RDSTRY 

; RETRY 


E190’ 

37 

SCF 

; SET CARRY FLAG 


EW 

18 07 

JR 

RDSRET 

; RETURN 


E1A0' 

FI 

NXTSECt POP 

AF } SYNCHRONIZE PUSH POP 


E1A1' 

OC 

INC 

C i INCREMENT TO SECTOR 


E1A2' 

7B 

LD 

AfE 

i CHECK IF HITHIN LIMIT 


E1A3' 

B9 

CP 

C 



E1A1' 

30 E5 

JR 

NC.RDSECS 

? YESf READ NEXT SECTOR 


E1A6' 

3F 

CCF 

1 CLEAR CARRY FLAG 


E1A7' 

C9 

rdsret; ret 






f 

> 

GET CONSOLE STATUS 




« 

i 

A = OFFHj 

CHARACTER READY 




* 

> 

= 000H» 

CHARACTER NOT READY 

1 

E1A8' 


t 

const: 




E1A8' 

3A FFDF 

LD 

Af(SNITCH) 
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E4AB' 

CB 4F 

BIT 

TVjA 

; CHECK IF TU IS ON 

E4AD' 

28 00 

JR 

Z»C0NST3 

f IGNORE IF NOT 

E4AF' 

3A F038' 

LD 

A?(COUNTER) 


E4E12' 

B7 

OR 

A 


E4B3' 

28 07 

JR 

ZjCONSTS 


E4B5’ 

3D 

DEC 

A 


E4B6' 

32 F038' 

LD 

(COUNTER)?A 


F4B9' 

CC E570' 

CALL 

ZfSCNUF'D 


E4BC' 


C0NST3’, 



E4BC' 

3A F035' 

LD 

A?(KEYSN) 


E4BF' 

06 FF 

SUB 

ON 


E4Cr 

C8 

RET 

Z 


E4C2' 

3A F032’ 

LD 

A.(CHRCNT) 


E4C;5' 

B7 

OR 

A 


E4C6' 

3E FF 

LD 

AfOFFH 


E4C8' 

CO 

RET 

NZ 


E4C9' 

CD FFE7 

CALL 

CONSTA 


E4CC' 

30 OB 

JR 

NC?CONSTI 

; NO INPUT 

E4CE' 

CB 7F 

BIT 

7,-A 

? CHECK FOR FUNCTION KEYS 

E4D0' 

28 09 

JR 

2?C0NST2 

5 NOT FUNCTION KEY 

E4D2' 

CD E50A‘ 

CALL 

INFUNC 

f PROCESS FUNCTION KEY 

E4D5' 

30 D1 

JR 

NCfCONST 

» FUNCTON KEY TRAPPED 

E4D7‘ 

38 02 

JR 

C?C0NST2 


E4D9' 

AF 

CONSTi; XOR 

A ; NO CHARACTER 

E4DA' 

C9 

RET 



E4DB' 

32 F578' 

C0NST2: LD 

(CHRBUF)!A 

J SAVE CHARACTER 

E4DE‘ 

3E 01 

LD 

A?1 

5 TURN ON CHARACTER SNITCH 

E4E0' 

32 F032' 

LD 

(CHRCNT)fA 


E4E3‘ 

C9 

RET 




GET CONSOLE CHARACTER 
A = CHARACTER 




E4E4' 

CD E4A8’ 

C0NIN5 CALL 

CONST 

E4E7' 

B7 

OR 

A 

E4E8' 

28 FA 

JR 

ZfCONIN 

E4EA' 

2A F036' 

C0NIN2} LD 

HL?(BUFADR) 

E4ED' 

7E 

LD 

A?(HL) 

E4EE' 

F5 

PUSH 

AF 

E4EF' 

23 

INC 

HL 

E4F0' 

22 F036' 

LD 

(BUFADR)?HL 

E4F3' 

3A F032' 

LD 

A?(CHRCNT) 

E4F6' 

30 

DEC 

A 

E4F7' 

32 F032' 

LD 

(CHRCNT)?A 

E4FA‘ 

B7 

OR 

A 

E4FB' 

20 OB 

JR 

NZ?L00P22 


CHECK FOR CHARACTER 
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E4FD‘ 

21 F578’ 

LD 

HLfCHRBUF 


E500- 

22 F036' 

LD 

(BUFADRlfHL 


E503' 

3E OA 

LD 

AfTVCNT 


E505' 

32 F038' 

LD 

(COUNTER)»A 


E508' 

FI 

L00P22! POP 

AF 


E509' 

C9 

RET 

5 RETURN 




t 

PROCESS FUNCTION KEYS 



f 

} 

A = CHARACTER 


E50A' 

F5 

INFUNC5 PUSH 

AF 


E50£:' 

3A FFDF 

LD 

A,(SWITCH) t 

CHECK IF TV SWITCH ON 

E50E' 

CB 4F 

BIT 

TVjA 


E510' 

28 2A 

JR 

ZfINRETl t 

NO? RETURN 

E51Z' 

FI 

POP 

AF 


E513' 

CB BF 

RES 

7>A » 

CLEAR HIGH BIT 

E515' 

FE 38 

IN06S CP 

COLFW t 

CHECK IF COLUHN SCROLL FORWARD 

E517’ 

20 05 

JR 

NZjIN07 


E519' 

CD E541' 

CALL 

COLFOR ? 

COLUHN SCROLL FORWARD 

E51C’ 

18 1C 

JR 

INRET ; 

RETURN 

E51E' 

FE 37 

IN07J CP 

COLBH ? 

CHECK IF COLUHN SCROLL BACKWARD 

E520' 

20 05 

JR 

NZ/IN08 


E522' 

CD E556' 

CALL 

COLBCK f 

COLUHN SCROLL BACKWARD 

E525' 

18 13 

JR 

INRET ; 

RETURN 

E527' 

FE 39 

IN085 CP 

LEFT 5 

CHECK IF SCROLL LEFT HARGIN 

E529’ 

20 06 

JR 

NZjIN09 


E52B' 

AF 

XOR 

A 


E52C' 

32 FFD9 

LD 

(OFFSET)?A ? 

SET SCREEN OFFSET TO BEGINNING 

E52F' 

18 09 

JR 

INRET } 

RETURN 

E531’ 

FE 30 

IN09; CP 

RIGHT > 

CHECK IF SCROLL RIGHT HARGIN 

E533' 

20 08 

JR 

NZ»INRET2 


E535' 

3E 28 

LD 

AjHAXOFF 


E537' 

32 FFD9 

LD 

(OFFSET)fA 5 

SET SCREEN OFFSET TO END 

E53A' 

AF 

INRETJ XOR 

A 


E53B' 

C9 

RET 

f RETURN 


E53C' 

FI 

INRETi; POP 

AF 


E53D' 

CB FF 

INRET2J SET 

7iA 


E53F‘ 

37 

SCF 



E540' 

C9 

RET 




> TV SCREEN COLUHN SCROLL FORWARD 


f 
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E5T1’ 

3A FFD9 

C0LF0R5 LD 

Af(OFFSET) 

i GET SCREEN OFFSET 

E5ir 

FE 28 

CP 

HAXOFF 

f CHECK IF AT END 

E516' 

28 OA 

JR 

Z.COLFRT 

) YES» RETURN 

E518' 

E6 F8 

AND 

0F8H 

f CALCULATE NEXT POSITION 

E54A' 

C6 08 

ADD 

A;8 


E54C' 

FE 28 

CP 

HAXOFF 

t CHECK IF OVER LIHIT 

E54E' 

38 02 

JR 

C»COLFRT 

> NO 

E550' 

3E 28 

LD 

AiMAXOFF 

t YESj set TO HAXIHUH 

E552' 

E555’ 

32 FF09 

C9 

COLFRTJ LD 

RET 

(OFFSET)»A 

; UPDATE OFFSET 


) 

> TV SCREEN COLUHN SCROLL BACKWARD 
» 


E556’ 

3A FFD9 

colbck; LD 

A»(OFFSET) 

J GET SCREEN OFFSET 

E559' 

B7 

OR 

A } CHECK 

IF AT BEGINNING 

E55A' 

28 13 

JR 

ZrCOLBRT 

} YESt return 

E55C‘ 

E6 07 

AND 

07H 

> CALCULATE NEXT POSITION 

E55E' 

20 07 

JR 

NZfCOLBKl 


E560' 

3A FFD9 

LD 

At(OFFSET) 


E563‘ 

D6 08 

SUB 

8 


E565' 

18 05 

JR 

C0LBK2 


E567’ 

3A FFD9 

COLBKIJ LD 

At(OFFSET) 


E56A' 

E6 F8 

AND 

0F8H 


E56C' 

32 FFD9 

C0LBK2J LD 

(OFFSET)TA 

} UPDATE OFFSET 

E56F' 

C9 

colbrt; ret 




? UPDATE TV SCREEN 


E570' 

C5 

scnupd: push 

BC 


E57r 

3A FFD4 

LD 

At(COLNO) 

T GET COLUHN NUHBER 

E574' 

47 

LD 

BtA 


E575' 

3A FFD9 

LD 

At(OFFSET) 

1 T GET CURRENT OFFSET 

E578' 

OE 05 

LD 

CiMARGIN 

T CALCULATE LEFT LIHIT 

E57A' 

81 

ADD 

AtC 


E57B' 

B8 

CP 

B t 

CHECK IF LESS THAN LEFT LIHIT 

E57C' 

38 07 

JR 

CtSCNUPI 

? CHECK IF LESS THAN RIGHT LIHIT 

E57E' 

78 

LD 

AtB 


E57F' 

91 

SUB 

C > 

CALCULATE OFFSET 

E580' 

30 16 

JR 

NCtSCNUPZ 

T NOT IN LEFTHOST HARGINt RETURN 

E582' 

AF 

XOR 

A T 

CLEAR OFFSET 

E583' 

18 13 

JR 

SCNUP2 

T RETURN 
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E5B5’ 

C6 ID 

SCNUPIJ 

ADD 

E587' 

B8 


CP 

E5B8' 

30 11 


JR 

E58A' 

IF 


LD 

E58B' 

78 


LD 

E58C’ 

91 


SUB 

E58D' 

IF 


LD 

E58E' 

3A FFD9 


LD 

E591' 

81 


ADD 

E592' 

FE 28 


CP 

E59r 

38 02 


JR 

E596' 

3E 28 


LD 

E598' 

32 FFD9 

SCNUP2; 

LD 

E59B' 

Cl 

scnret; 

POP 

E59C' 

C9 


RET 

i 

i 

E59D' 

F5 

CONOUTl 

! 

J 

PUSH 

E59E' 

C5 


PUSH 

E59F' 

D5 


PUSH 

E5A0‘ 

E5 


PUSH 

E5A1' 

3E OA 


LD 

E5A3' 

32 F038' 


LD 

E5A6' 

79 


LD 

E5A7' 

E6 7F 


AND 

E5A9' 

IF 


LD 

E5AA' 

3A F033‘ 


LD 

E5AD' 

FE FF 


CP 

E5AF' 

20 OA 


JR 

E5B1‘ 

3E 00 


LD 

E5B3’ 

32 F033' 


LD 

E5B6' 

CD E631' 


CALL 

E5B9’ 

18 62 


JR 

E5BB' 

3A F030' 

CONK 

LD 

E5BE' 

B7 


OR 

E5BF' 

20 12 


JR 

E5C1' 

3A F02A' 


LD 

E5Cr 

FE FF 


CP 

E5C6' 

20 19 


JR 

E5C8' 

3E 3D 


LD 

E5CA' 

B9 


CP 

E5CB' 

20 11 


JR 

E5CD' 

CD E8C8' 


CALL 


1-17 


A»HIDTH > CALCULATE RIGHT LIHIT 

B 

NCjSCNRET f NO CHANGE TO LIMITS 

CjA 

A>B 

C 

CrA 

A» (OFFSET) 

AfC 

MAXOFF ; CHECK IF GREATER THAN MAXIMUM 

CfSCNUP2 f NO 

AjMAXOFF ; YESr SET TO MAXIMUM 

(OFFSET)jA 

BC 


PUT CONSOLE CHARACTER 
C = CHARACTER 


AF 

BC 

DE 

HL 

AjTVCNT 
(COUNTER)*A 

A*C ! STRIP FIRST BIT 

7FH 

C*A 

Af(GRPHSH) 5 CHECK IF GRAPHIC CHARACTER 

ON 

NZ*C0N1 ) NO 

AjOFF ; TURN OFF SNITCH 

(GRPHSN)*A 

CHAROUT i SEND CHARACTER 

CONEND 

Af(CURCNT) 

A 

NZrCONlC 

A*(LDFLG) 

ON 

NZfCONZ 

A»' = ' 

C 

NZrCONZ 

DIRADR 
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E5D0’ 

C3 E61D' 


JP 

CONEND 


E5D3' 

FE 01 

CONIC} 

CP 

1 } CHECK IF COLUMN ADDRESS 

E5D5' 

20 05 


JR 

NZfCONlA 

; NO 

E5D7' 

CD E8CE' 


CALL 

DIAORl 

; PROCESS COLUMN ADDRESS 

E5DA' 

18 41 


JR 

CONEND 


E5DC' 

CD E8FD' 

CONIAI 

CALL 

DIADR2 

; PROCESS RON NUMBER 

E5DF' 

18 3C 


JR 

CONEND 


E5E1' 

79 

C0N2} 

LD 

A>C 


E5E2' 

FE 20 


CP 

BLANK 

! CHECK IF DISPLAYABLE 

E5E1’ 

38 OE 


JR 

C»C0N4 

; NO 

E5E6' 

FE 7E 


CP 

TILDA 

; CHECK IF TILDA 

E5E8' 

20 05 


JR 

NZ»C0N3A 

i NO, SEND CHARACTER 

E5EA' 

CD E830' 

C0N3} 

CALL 

TLDA 

i PROCESS TILDA 

E5ED' 

18 2E 


JR 

CONEND 


E5EF‘ 

CD E634‘ 

C0N3A} 

CALL 

CHAROUT 

J SEND CHARACTER 

E5F2' 

18 24 


JR 

CONS 


E5F4- 

21 F079' 

C0N4} 

LD 

HL»LEADTB 

J GET LEAD-IN TABLE ADDRESS 

E5F7' 

06 00 


LD 

BrO 

5 INDEX INTO TABLE 

E5F9' 

09 


ADD 

HLfBC 


E5FA' 

7E 


LD 

Af(HL) 

t GET LEAD-IN INDICATOR 

E5F8' 

57 


LD 

DfA 


E5FC' 

3A F029' 


LD 

A»(LEADFLG) 

i GET LEAD-IN FLAG 

E5FF' 

BA 


CP 

D ? CHECK IF SAME 

E600' 

20 OB 


JR 

NZfC0N6 

; NO, PROCESS CHARACTER 

E602' 

21 F039' 


LD 

HLjCHRTAB 

; GET ROUTINE TABLE ADDRESS 

E605' 

CB 21 


SLA 

C 5 MULITPLY BY 2 

m 

o 

09 


ADD 

HL»BC 

> INDEX INTO TABLE 

E608' 

CD E62D' 


CALL 

JUMP 

; PROCESS CHARACTER 

E608' 

18 OB 


JR 

CONS 


E60D' 

FE FF 

C0N6} 

CP 

ON f CHECK IF LEAD-IN ON 

E60F' 

20 OC 


JR 

NZ»C0NEND 


E6ir 

3E 00 


LD 

AfOFF 

5 CLEAR LEAD-IN SNITCH 

E613' 

32 F029' 


LD 

(LEADFLG)»A 


E616‘ 

18 DC 


JR 

C0N4 


E618' 

3E 00 

C0N5} 

LD 

AfOFF 

} CLEAR SNITCHES 

E61A' 

32 F029' 


LD 

(LEADFLG)fA 


E61D' 

3A F031' 

CONEND} 

LD 

A>(CURSN) 

} GET CURSOR SNITCH 

E620' 

FE FF 


CP 

ON 5 CHECK IF ON 

E622' 

20 04 


JR 

NZfCONRT 

i NO 

E62r 

3E 31 


LD 

ArONCUR 

; TURN ON CURSOR 

E626’ 

D3 01 


OUT 

<VTCCMD)»A 
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E628' El 
E629' D1 
E62A' Cl 
E62B' FI 
E62C' C9 

E62D' EB 
E62E= lA 
E62F' 6F 
E630' 13 
E631' lA 
E632' 67 
E633' E9 


conrt: pop 

POP 

POP 

POP 

RET 

JUHP; EX 
LD 


DEfHL 

A»(DE) 

LrA 

DE 

A»(DE) 

HfA 

(HD 


5 CHARACTER OUTPUT TO SCREEN 
# 

# C = CHARACTER 


CHAROUTJ 


E634' 

3A F028' 

LO 

ArIBKFRFLG) 

; GET BACK/FOREGROUND FLAG 

E637' 

B1 

OR 

C ; SET CHARACTER TO GROUND TYPE 

E638' 

03 1C 

OUT 

(VTCDAT)fA 

? SEND CHARACTER 

E63A' 

3A FFD1 

LD 

Ar(COLNO) 

i CHECK IF END OF LINE 

E63D' 

3C 

INC 

A 


E63E' 

FE 50 

CP 

MAXCOL 


E640' 

20 1C 

JR 

NZrCHROT 

5 NOj send CHARACTER 

E612' 

3A F02B' 

LD 

A>(SNANL) 

? CHECK IF LINE TRUNCATE 

£615' 

FE FF 

CP 

ON 


E617' 

20 IF 

JR 

NZ.CHROTl 

i YES 

E619' 

AF 

XOR 

A f CHECK 

IF SCROLL 

E61A' 

32 FFD1 

LD 

(COLNO)jA 


E61D' 

3A F027' 

LD 

Ar(SCRLFLG) 


E650' 

FE 00 

CP 

OFF 


E652' 

28 IB 

JR 

ZiCHKLIN 

> N0» UPDATE LINE NUHBER 

E651' 

3E AB 

LD 

AfHRINC 

i HRITE CHARACTER i INCREHENT CURSOR 

E656' 

CO EB2D' 

CALL 

WAIT 


E659' 

CD E73D' 

CALL 

SCROLL 

f SRCOLL SCREEN 

E65C' 

18 19 

JR 

CHORET 

1 RETURN 

E65E' 

32 FFD1 

CHROT! LD 

(COLNOIjA 

; UPDATE COLUMN NUHBER 

E661' 

3E AB 

LD 

ArHRINC 

; HRITE CHARACTER 8 INCREMENT CURSOR 

E663' 

CD EB2D' 

CALL 

HAIT 


E666' 

18 OF 

JR 

CHORET 

? RETURN 

E668' 

3E AA 

CHROTl} LD 

ArHRCUR 

} HRITE CHARACTER AT CURSOR 

E66A' 

CD EB2D' 

CALL 

HAIT 


E66D’ 

18 08 

JR 

CHORET 

* RETURN 

E66F' 

3E AB 

CHKLIN5 LD 

ArHRINC 

} HRITE CHARACTER 8 INCREMENT CURSOR 



E671' 

CD EB2D‘ 

CALL 

HAIT 


E671' 

CD E78E' 

CALL 

UPDLIN 

} UPDATE LINE NUHBER 

E677' 

C9 

CHORE!5 RET 

; RETURN 



5 

t LINE FEED 

f 


E67B' 

3A F027' 

lfeed: ld 

A»(SCRLFLG) 

1 PROCESS SCROLLING 

E67B' 

FE 00 

CP 

OFF 


E67D' 

28 05 

JR 

ZjLFEEDI 


E67F' 

CD E73D' 

CALL 

SCROLL 


E682' 

13 31 

JR 

LFRET 

1 RETURN 

E68r 

DB 0^1 

LFEEDll IH 

AfiUTCCUl) 

i GET CURSOR ADDRESS 

E686' 

6F 

LD 

L,A 


E687' 

DB 05 

IN 

A((MTCCU2) 


E689' 

67 

LD 

HiA 


E68ft' 

E5 

PUSH 

HL 5 SAVE CURSOR 

E68B’ 

ED 5B FFD4 

LD 

DE»(COLNO) 

5 CHECK IF AT LAST LINE 

E68F' 

AF 

XOR 

A 


E690' 

ED 52 

SBC 

HL»OE 


E692' 

11 OO^F 

LD 

DEjMAXCOL-I 


E695‘ 

19 

ADD 

HL»DE 


E696' 

11 07FF 

LD 

DEjENDADR 


E699‘ 

AF 

XOR 

A 


E69A‘ 

ED 52 

SBC 

HLfDE 


E69C' 

El 

POP 

HL 


E69D' 

28 05 

JR 

ZfLFEED2 

5 YES 

E69F' 

11 0050 

LD 

DErMAXCOL 

5 CLACULATE NEXT LINE ADDRESS 

E6A2' 

18 07 

JR 

LFEED3 


E6A1' 

21 0080 

LFEED2t LD 

HL»STADR 

5 CALCULATE NEXT LINE ADDRESS 

E6A7' 

ED 5B FFD'i 

LD 

OEr(COLNO) 


E6Ae‘ 

19 

LFEED3} ADD 

HLtDE 


E6AC' 

7D 

LD 

A»L 

5 UPDATE CURSOR 

E6AD' 

D3 01 

OUT 

(VTCCU1)»A 


E6AF‘ 

7C 

LD 

ArH 


E6B0' 

D3 05 

OUT 

(VTCCU2)»A 


E6B2' 

CO E78E' 

CALL 

UPDLIN 

; UPDATE LINE NUMBER 

E6B5’ 

C9 

LFRET! RET 

5 RETURN 



A 

* CARRIAGE RETURN 

A 

} 


E6B4' 

DB 01 

CARRTNJ IN 

A»«VTCCU1) 

1 UPDATE CURSOR « COLUMN NUHBER 

E6B8' 

6F 

LD 

L^A 


E6B9' 

DB 05 

IN 

A>(VTCCU2) 


E6Be' 

67 

LD 

HrA 


E6BC' 

ED 5B FFD1 

LD 

DEjCCOLNO) 




E6C0' 

AF 

XOR 

A 

E6C1' 

32 Tm 

LD 

(COLNO)fA 

E6M’ 

ED 52 

SBC 

HLfDE 

E6C6' 

7D 

LD 

ArL 

E6C7' 

D3 04 

OUT 

(OTCCUDfA 

E6C9‘ 

7C 

LD 

ArH 

E6M' 

D3 05 

OUT 

(0TCCU2)»A 

E6CC' 

3A F02C' 

LD 

A»(SHALF) ? CHECK IF AUTO LINEFEED 

E6CF' 

FE FF 

CP 

ON 

E6D1' 

CC Ed78' 

CALL 

ZrLFEED 

E6D1' 

C9 

RET 

; RETURN 



A 

f 

5 BACKSPACE 

A 

i 

E6D5' 


BKSPACEl 


E6D5' 

3A FFD4 

LD 

Af(COLNO) ? CHECK IF AT BEGINNING OF LINE 

E6D8' 

B7 

OR 

A 

E6D9' 

20 11 

JR 

nzjBsmool s noj hove left 

E60B' 

3A FFDd 

LD 

Af(LINENO) f CHECK IF AT FIRST LINE 

E6DE’ 

B7 

OR 

A 

E6DF' 

28 29 

JR 

ZfBSRET ? YES> RETURN 

E6E1' 

3D 

DEC 

A J UPDATE LINE NUHBER 

E6E2' 

32 FFDd 

LD 

(LINENO)rA 

E6E5' 

3E 00 

LD 

AjOFF } TURN OFF SCROLLING 

E6E7' 

32 F027' 

LD 

(SCRLFLG)rA 

EdEA' 

3E 50 

LD 

AfHAXCOL 

EdEC 

3D 

BSHOVLJ DEC 

A 

EdED' 

32 FFD4 

LD 

(COLNO>»A ? UPDATE COLUHN NUHBER 

EdFO' 

DB 04 

IN 

Af(VTCCUl) * UPDATE CURSOR NUHBER 

EdF2’ 

5F 

LD 

E>A 

EdF3' 

DB 05 

IN 

Af(VTCCU2) 

EdF5' 

57 

LD 

D>A 

EdFd' 

21 0080 

LD 

HLtSTADR 5 CHECK IF AT START ADDRESS 

EdF9' 

AF 

XOR 

A 

EdFA' 

ED 52 

SBC 

HLrDE 

EdFC 

20 05 

JR 

NZ»BSH0V1 5 NO 

EdFE’ 

11 07FF 

LD 

DEfENDADR t SET CURSOR TO END ADDRESS 

E701' 

18 01 

JR 

BSOUT 

E703' 

IB 

BSHOVll DEC 

DE i DECREHENT CURSOR 

E701' 

7B 

BSOUTl LD 

ArE 

E705' 

D3 04 

OUT 

(VTCCU1)»A 

E707' 

7A 

LD 

ArD 

E708' 

D3 05 

OUT 

(VTCCU2)jA 

E70A' 

C9 

BSRETJ RET 

5 RETURN 
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5 CURSOR RIGHT 


E70B' 

3A FFD1 

curigt; LD 

A.(COLNO) 

i CHECK IF AT END OF LINE 

E70E' 

3C 

INC 

A 


E70F' 

FE 50 

CP 

MAXCOL 


E711' 

20 OC 

JR 

NZ»CURIG1 


E713' 

3A FFD6 

LD 

Af(LINENO) 

1 CHECK IF AT LAST LINE 

E7i6' 

FE 17 

CP 

HAXLIN 


E718' 

28 22 

JR 

ZjCURET 

i YESf RETURN 

E71A' 

3C 

INC 

A ; INCREHENT LINE NUMBER 

E7ie' 

32 FF06 

LD 

(LINENO)fA 


E71E' 

AF 

XOR 

A 


E71F' 

32 FFD1 

CURIGi: LD 

<COLNO)»A 


E722’ 

DB 01 

IN 

Aj(MTCCUI) 


E721‘ 

5F 

LD 

ErA 


E725' 

DEI 05 

IN 

A»(VTCCU2) 


E727' 

57 

LD 

DiA 


E728' 

21 07FF 

LD 

HL^ENDADR 

? CHECK IF AT END ADDRESS 

E72B' 

AF 

XOR 

A 


E72C' 

ED 52 

SBC 

HL»DE 


E72E' 

20 05 

JR 

NZrCURIG2 

1 NO 

E730' 

11 0080 

LD 

DEfSTADR 

; SET TO START ADDRESS 

E733' 

18 01 

JR 

CURIG3 


E735' 

13 

CURIG2J INC 

DE 


E736’ 

7B 

CURIG3; LD 

AfE 


E737' 

D3 01 

OUT 

(MTCCUDfA 


£739' 

7A 

LD 

A>D 


E73A' 

D3 05 

OUT 

(MTCCU2)..A 


E73C' 

C9 

CURETl RET 




; SCROLL 
J 


rs, 


E73D' 

3E 30 

SCROLL! LD 

AfOFFCUR 

E73F' 

D3 01 

OUT 

(VTCCMD)fA 

E711' 

ED 5B FFD7 

LD 

DE»(SCSTART) 

E715' 

7B 

LD 

A>E 

E716' 

D3 01 

OUT 

(MTCCUDjA 

E718' 

7A 

LD 

A>D 

E719' 

D3 05 

OUT 

(VTCCU2)fA 

E71B' 

21 001F 

LD 

HLrHAXCOL-1 

E71E' 

19 

ADD 

HLrDE 

E71F' 

7D 

LD 

A*L 

E750’ 

D3 06 

OUT 

{VTCPTDfA 

E752' 

7C 

LD 

AfH 

E753’ 

D3 07 

OUT 

(VTCPT2)fA 


? TURN OFF CLIRSOR 

} SET CURSOR TO FIRST LINE 

; SET POINTER TO END OF FIRST LINE 



E755' 

3A F028' 

LD 

A»(BKFRFLG) J SEND OUT BLANK 

E758' 

F6 20 

OR 

BLANK 

E75A’ 

D3 1C 

OUT 

(UTCDAT),A 

E75C' 

CD EB28' 

CALL 

HAIT2 ; CLEAR LINE 

E75F' 

E5 

PUSH 

HL } UPDATE CURSOR 

E760' 

2A FFD^ 

LD 

HLj(COLNO) 

E763' 

19 

ADD 

HLfDE 

UbV 

7D 

LD 

AiL 

E765' 

D3 M 

OUT 

(VTCCUDfA 

E767' 

7C 

LD 

A;H 

E768' 

D3 05 

OUT 

(VTCCU2)fA 

E76A' 

D1 

POP 

DE 

E76Ei' 

AF 

XOR 

A i CHECK IF SECOND LINE WRAP AROUND 

E76C‘ 

21 07FF 

LD 

HLfENDADR 

E76F' 

ED 52 

SBC 

HLfDE 

E771' 

20 05 

JR 

NZjSCRLLI 

E773' 

11 0080 

LD 

DEfSTADR f YESf SET TO BEGINNING ADDRESS 

E776’ 

18 01 

JR 

SCRLL2 

E778' 

13 

SCRLL15 INC 

OE 

E779' 

CD 8838' 

SCRLL2{ CALL 

HAITI } HAIT FOR UBLANK 

E77C' 

3A FFDF 

LD 

A,(SNITCH) » CHECK IF TO SHITCH ON 

E77F' 

ce ^F 

BIT 

TV»A 

E781' 

20 06 

JR 

NZfSCRLL3 f YES 

E783' 

7B 

LD 

AfE i SET SCREEN START ADDRESS 

E78^‘ 

D3 02 

OUT 

(VTCSCl)fA 

E786' 

7A 

LD 

ArD 

E787' 

D3 03 

OUT 

(VTCSC2)rA 

E789' 

ED 53 FFD7 

SCRLL35 LD 

(SCSTART)jDE J SAVE SCREEN START ADDRESS 

E78D' 

C9 

RET 

i RETURN 




; UPDATE LINE NUMBER 
i 


E78E' 

3A FFD6 

UPDLIN! LD 

A>(LINENO) 

> UPDATE LINE NUMBER 

E791' 

3C 

INC 

A 


E792' 

32 FFD6 

LD 

(LINENO)fA 


E795' 

FE 17 

CP 

MAXLIN 

; CHECK IF AT LAST LINE 

E797' 

20 05 

JR 

NZjUPDLRT 

» NOf RETURN 

E799' 

3E FF 

LD 

ArON 

5 SET SCROLL FLAG ON 

E79B‘ 

32 F027' 

LD 

(SCRLFLG)fA 


E79E' 

C9 

UPDLRTt RET 
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E79F’ 

11 OOAO 

BELLI LD 

DEfl60 


E7A2' 

3A FFEO 

L00P16I LD 

A»(HODREG} 

; GET NODE REGISTER 

E7A5' 

ce FF 

SET 

BEEP f A 


E7A7' 

D3 ID 

OUT 

(VTCHOO)»A 

; SET BEEP MODE 

E7A9' 

06 IE 

LD 

B.?8 


E7AE!' 

10 FE 

L00P13I DJNZ 

L00P13 


E7AD‘ 

3A FFEO 

LD 

A.(MODREG) 


E7B0' 

D3 ID 

OUT 

(VTCHOD).A 

; CLEAR BEEP MODE 

E7B2' 

06 IE 

LD 

Bi?8 


E7B1* 

10 FE 

L00P11I DJNZ 

L00P11 

i DELAY 

E7B6’ 

IB 

DEC 

DE 


E7B7‘ 

7B 

LD 

A,E 


E7B8' 

E2 

OR 

D 


E7B9' 

20 E7 

JR 

NZJL00P16 


E7BB‘ 

C9 

RET 





} LOCK KEYBOARD 


E7BC' 

3E FF 

KLOCKI LD 

A>ON 


E7BE' 

32 F035‘ 

LD 

(KEYSW)fA 


E7C1' 

C9 

RET 





> 

; UNLOCK KEYBOARD 
* 
t 


E7C2' 

3E 00 

KUNLKI LD 

AfOFF 


E7C1' 

32 F035' 

LD 

(KEYSH)fA 


E7C7' 

AF 

XOR 

A 


E7C8' 

32 F032' 

LD 

(CHRCNT)»A 


E7CB' 

CD E1A8' 

L00P21I CALL 

CONST 


E7CE' 

B7 

OR 

A 


E7CF' 

C8 

RET 

Z 


E7D0' 

CD E1E1’ 

CALL 

CONIN 


E7D3' 

18 F6 

JR 

L00P21 



» SEND CURSOR ADDRESS 

f 


E7D5' 

3E 03 

SNDADR! LD 

Af3 

E7D7' 

32 F032' 

LD 

(CHRCNDfA 

E7DA’ 

21 F578' 

LD 

HLfCHRBUF 

E7DD' 

3A FFD1 

LD 

Af(COLNO) 

E7E0' 

B7 

OR 

A 

E7Er 

20 01 

JR 

NZfSNDADI 
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E7E3' 

CB 77 


BIT 

6>A 


E7E5' 

CB 6F 


BIT 

S>A 


E7E7' 

7? 

SNDADi; 

LD 

(HDfA 


E7E8' 

23 


INC 

HL 


E7E9' 

3A FFD6 


LO 

Aj(LINENO) 


E7EC’ 

B7 


OR 

A 


E7ED' 

20 02 


JR 

N2fSNDAD2 


E7EF' 

CB 6F 


BIT 

S^A 


E7F1' 

77 

SNDAD2t 

LD 

(HL)»A 


E7F2' 

23 


INC 

HL 


E7F3' 

3E 00 


LD 

A>CR 


E7F5’ 

77 


LD 

(HL)jA 


E7F6' 

C9 


RET 






} 

; TURN ON DISPLAY 


i 


E7F7' 

3E 29 

ONDI 

LD 

AfONDIS 

E7F9' 

D3 01 


OUT 

(VTCCHD)jA 

E7FB' 

C9 


RET 





? 

5 TURN OFF DISPLAY 




f 


E7FC' 

3E 28 

offd; 

LD 

ArOFFDIS 

E7FE' 

D3 01 


OUT 

(VTCCHD)jA 

E800' 

C9 


RET 





J 

5 TURN ON CURSOR 

t 

E801' 

3E 31 

ONCt 

LO 

AiONCUR 

E803’ 

D3 01 


OUT 

(UTCCHDIfA 

E805' 

3E FF 


LD 

AfON 

E807' 

32 F03r 


LD 

(CURSN)»A 

E80A' 

C9 


RET 



t 




1 TURN OFF CURSOR 

E80B' 

3E 30 

OFFC; LD 

AfOFFCUR 

E80D' 

D3 01 

OUT 

(UTCCHD)»A 

E80F' 

3E 00 

LD 

ArOFF 

E811' 

32 F031' 

LD 

(CURSH)»A 

E8H' 

C9 

RET 




A 

f 

f GRAPHIC CHARACTEI 


t 



E815' 

3E FF 

GRAPH! 

LD 

ArON 

E817' 

32 F033' 


LD 

(GRPHSH)fA 

E81A' 

C9 


RET 





5 

; SET 
} 

FOREGROUND MODE 

E81E!' 

3E 80 

SETFR! 

LD 

AjFORGND 

E81D' 

32 F028' 


LO 

(BKFRFLG)»A 

E3Z0' 

C9 


RET 





> 

; SET 

t 

BACKGROUND MODE 

E821' 

AF 

SETBK! 

XOR 

A 

E822' 

32 F028' 


LD 

(BKFRFLG)»A 

E825' 

C9 


RET 





f 

f ESCAPE 

f 

E826' 

3A F02D' 

ESCAPE! 

LD 

AnSHLEAD) : CHECK IF LEAD-IN CHARACTER 

E829' 

FE FF 


CP 

ON 

E82EI' 

CO 


RET 

NZ t IGNORE 

E82C' 

32 F02A' 


LD 

(ldflg)tA j set lead-in flag 

E82F' 

C9 


RET 



f 





} TILDA 

» 



E830‘ 

3A F02D' 

TLDA! 

LD 

AfGHLEAD) 

i CHECK IF LEAD-IN CHARACTER 

E833' 

FE FF 


CP 

ON 


E835' 

28 06 


JR 

Z»TLDAi 

i DISPLAY CHARACTER 

E837' 

3E FF 


LD 

AfON 

? SET LEAD-IN FLAG 

E839' 

32 F029' 


LD 

(LEAOFLG)rA 


E83C' 

C9 


RET 



E83D' 

CO E63r 

TLDAl! 

CALL 

CHAROUT 

5 SEND CHARACTER 

E8^0' 

C9 


RET 






♦ 

5 CURSOR UP 

» 


E811‘ 

3A FFD6 

CURUP! 

LD 

Af(LINENO) 

i CHECK IF AT FIRST LINE 

E8ir 

B7 


OR 

A 


E8^5' 

28 3C 


JR 

ZjCUPRET 

i YES» RETURN 

E817' 

3D 


DEC 

A ! UPDATE LINE NUMBER 

E898' 

32 FFD6 


LD 

(LINENO)jA 




i TURN OFF SCROLLING 
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E34B' 

3E 00 

LD 

E84D‘ 

32 F027’ 

LD 

E850' 

DB 04 

IN 

E852' 

6F 

LD 

E853' 

DB 05 

IN 

E855' 

67 

LD 

E856' 

E5 

PUSH 

E857' 

ED 5B FFD4 

LD 

E85B' 

AF 

XOR 

E85C' 

ED 52 

SBC 

E85E’ 

11 0080 

LD 

E861' 

AF 

XOR 

E862’ 

ED 52 

SBC 

E864' 

El 

POP 

E865' 

28 08 

JR 

E867' 

AF 

XOR 

E868‘ 

11 0050 

LD 

E86B' 

ED 52 

SBC 

E86D' 

18 OE 

JR 

E86F' 

21 07FF 

CURUPi: LD 

m 

CO 

11 004F 

LD 

E875' 

AF 

XOR 

E876' 

ED 52 

SBC 

E878' 

ED 58 FFD4 

LD 

E87C' 

19 

ADD 

E87D' 

7D 

CURUP2! LD 

E87E' 

D3 04 

OUT 

E880' 

7C 

LD 

E881' 

D3 05 

OUT 

E883' 

C9 

CUPRET! RET 


1-27 


ArOFF 

(SCRLFLG)»A 

AjfUTCCUl) 5 GET CURSOR ADDRESS 
L)A 

AHVTCCUZ) 

HrA 

HL ; CHECK IF LINE AT START ADDRESS 
DEi(COLNO) 

A 

HL»DE 

DEjSTADR 

A 

HL>DE 

HL 

ZjCURUPI } YES 

A 1 NOr CALCULATE PREVIOUS LINE ADDRESS 

DEjMAXCOL 

HLfDE 

CURUP2 

HL>ENDADR 1 GET END ADDRESS 

DE»MAXCOL-l f CALCULATE FIRST ADDRESS OF LINE 

A 

HL»DE 

DEj(COLNO) > CALCULATE CURSOR ADDRESS 

HL»DE 

ArL 

(VTCCUl)fA 

ArH 

(VTCCU2)>A 


> 

t CURSOR DOHN 
J 


E884' 

3A FFD6 

CURDNN! LD 

Ar(LINENO) 

; CHECK IF AT LAST LINE 

E887’ 

FE 17 

CP 

HAXLIN 


E889' 

28 26 

JR 

ZfCDHNRT 

f YES» RETURN 

E88B' 

3C 

INC 

A 


E88C‘ 

32 FF06 

LD 

(LINENOlrA 


E88F' 

OB 04 

IN 

A»(VTCCU1) 


E891' 

6F 

LD 

LrA 


E892' 

DB 05 

IN 

A,(VTCCU2) 


E894' 

67 

LD 

HfA 

i CHECK IF END ADDRESS LINE 

E895' 

11 0050 

LD 

DEfHAXCOL 


E898' 

19 

ADD 

HLrDE 


E899' 

EB 

EX 

DEfHL 


E89A' 

21 07FF 

LD 

HLiENOADR 


E89D' 

AF 

XOR 

A 
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E89E' 

ED 52 

SBC 

HL»DE 


E8A0’ 

30 09 

JR 

NCrCDHNl 

; NO 

E8A2' 

21 0080 

LD 

HL»STADR 

? CALCULATE NEXT LINE ADDRESS 

E8A5' 

ED 5B FFD4 

LD 

DE>(COLNO) 


E8A9' 

19 

ADD 

HLfDE 


E8AA' 

EB 

EX 

DEjHL 


E8AB' 

7B 

CDHNi: LD 

AiE 

; SET CURSOR ADDRESS 

E8AC' 

D3 04 

OUT 

(OTCCUD.A 


E8AE' 

7A 

LD 

A>D 


EBAF' 

D3 05 

OUT 

(VTCCU2)jA 


E8B1' 

C9 

cdhnrt: ret 





i 

; CURSOR HOME 


E8B2' 

2A FFD7 

CURHME: LD 

HLf(SCSTART) 

5 GET SCREEN START ADDRESS 

E8B5’ 

70 

LD 

ArL 


E8B6’ 

D3 04 

OUT 

(VTCCU1)»A 

t UPDATE CURSOR ADDRESS 

E8B8' 

7C 

LD 

AfH 


E8B9' 

D3 05 

OUT 

(VTCCU2)jA 


E8BB' 

AF 

XOR 

A ; RESET 

LINE i COLUMN NUMBER 

E8BC' 

32 FFD6 

LD 

(LINENO)fA 


E8BF' 

32 FFD4 

LD 

(COLHO)rA 


E8C2' 

3E 00 

LD 

AjOFF 

; TURN OFF SCROLLING 

E3C1' 

32 F027' 

LD 

(SCRLFLG)tA 


E8C7' 

C9 

CURRETt RET 





? 

? DIRECT ADDRESSING 

♦ 


E8C8' 

3E 01 

DIRADRJ LD 

Afl 

; SET COUNT FOR CUROSR ADDRESS 

E8CA' 

32 F030' 

LD 

(CURCNT)»A 


E8CD' 

C9 

RET 

J RETURN 

E8CE' 

3A F02A' 

DIADRll LD 

At(LDFLG) 


E8D1’ 

FE FF 

CP 

ON 


E8D3' 

20 13 

JR 

NZrDIADRA 


E8D5' 

79 

LD 

AfC 


E8D6' 

D6 20 

SUB 

20H 


E8D8‘ 

32 FF06 

LD 

(LINENO)jA 


E8DB' 

FE 17 

CP 

MAXLIN 


E8DD' 

3E FF 

LD 

ArON 


E8DF' 

28 02 

JR 

ZfDIADRC 


E8E1' 

3E 00 

LD 

AiOFF 


E8E3' 

32 F027' 

DIADRC: LD 

(SCRLFLG)jA 


E8E6’ 

18 OF 

JR 

DIADRD 


m 

CO 

m 

CO 

79 

DIADRAl LD 

AfC 


E8E9‘ 

FE 5F 

CP 

95 i TEST IF CONVERSION IS REQD - STRIP OFFSET 

E8EB' 

F4 E96B' 

CALL 

PjCONVRT 

i YES STRIP BITS 5-7 OFF TO REMOVE OFFSET 
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E8EE’ 

FE 50 

CP 

HAXCOL 

f CHECK IF HITHIN LIHIT 

E8F0' 

38 02 

JR 

C>DIADR8 

f YES 

E8F2' 

3E IF 

LD 

A»HAXC0L-1 

f NOr SET TO HAXIHUH 

E8Fr 

32 F02F‘ 

DIADR81 LD 

(COLTP)»A 

f SAVE COLUHN NUHBER 

E8F7‘ 

3E 02 

diadrd: LD 

A>2 

f INCREHENT COUNTER 

E8F9' 

32 F030' 

LD 

(CURCNT)»A 


E8FC' 

C9 

RET 

> RETURN 

E8FD' 

3A F02A' 

DIADR2: LD 

A»(LDFLG) 


E900' 

FE FF 

CP 

ON 


E902' 

20 OC 

JR 

NZiDIADRB 


E901' 

79 

LD 

A>C 


E905' 

D6 20 

SUB 

20H 


E907' 

32 FFD1 

LD 

(COLNO)fA 


E90A‘ 

3A FFD6 

LD 

A>(LINENO) 


E90D' 

17 

LD 

B>A 


E90E' 

18 20 

JR 

DIADRE 


E910' 

79 

DIADRBl LD 

AfC 


E911' 

E6 IF 

AND 

IFH 

i STRIP THE OFFSET 

E913' 

FE 17 

CP 

HAXLIN 

f CHECK IF HITHIN LIHIT 

E915' 

38 02 

JR 

C»DIADR9 

f YES 

E917' 

3E 17 

LD 

AfHAXLIN 

f NOf SET TO HAXIHUH 

E919' 

F5 

DIADR9{ PUSH 

AF 


E91A' 

FE 17 

CP 

HAXLIN 

5 CHECK IF AT LAST LINE 

E91C' 

3E FF 

LD 

AtON 


E91E' 

28 02 

JR 

Z»DIADR7 

f YES 

E920' 

3E 00 

LD 

A»OFF 

i TURN OFF SCROLLING 

E922' 

32 F027' 

DIADR7! LD 

(SCRLFLG)?A 


E925' 

FI 

POP 

AF 


E926' 

32 FFD6 

LD 

(LINENO)rA 

f UPDATE LINE t COLUHN NUHBER 

E929' 

17 

LD 

BiA 


E92A' 

3A F02F' 

LD 

A.(COLTP) 


E92D' 

32 FFD1 

LD 

(COLNO)>A 


E930' 

11 0050 

diadre: LD 

DErHAXCOL 

f CALCULATE CURSOR ADDRESS 

E933' 

21 0000 

LD 

HLfO 


E936' 

78 

LD 

ArB 

f CHECK IF AT ROH 0 

E937’ 

87 

OR 

A 


E938' 

28 03 

JR 

ZrDIADR6 

» YES 

E93A‘ 

19 

L00P6: ADD 

HL>DE 


E93B' 

10 FD 

DJNZ 

L00P6 


E93D' 

ED 58 FFD1 

DIADR6! LD 

DEr(COLNO) 


E911' 

19 

ADD 

HLfDE 


E912' 

ED 58 FFD7 

LD 

DEf(SCSTART) 

f GET START ADDRESS 

E916' 

19 

ADD 

HLfDE 



• ^ 



mi' 

E5 

PUSH 

HL } CHECK 

IF OVER BOUNDARY 

EM8' 

11 0800 

LD 

DErENDADR+1 


E910' 

AF 

XOR 

A 


E91C' 

ED 52 

SBC 

HLjDE 


E91E' 

30 03 

JR 

NCrDIADR3 

J YES 

E950' 

El 

POP 

HL 


E951' 

18 05 

JR 

DIADR1 


E953' 

D1 

DIADR3J POP 

DE 


E95'l’ 

11 0080 

LD 

DEfSTADR 


E957' 

19 

ADD 

HLfDE 


E958' 

7D 

DIADRU LD 

A>L 

f UPDATE CURSOR 

E959' 

D3 01 

OUT 

(VTCCUDjA 


E95B’ 

7C 

LD 

AfH 


E95C‘ 

D3 05 

OUT 

(VTCCU2)fA 


E95E' 

AF 

DIADR5i XOR 

A ‘t CLEAR COUNT 

E95F' 

32 F030' 

LD 

(CURCNT)»A 


E962' 

3E 00 

LD 

AfOFF 

; TURN OFF LEAD-IN FLAG 

E964' 

32 F029' 

LD 

(LEADFLG)*A 


E967’ 

32 F02A' 

LD 

(LOFLG)fA 


E96A' 

C9 

RET 

J RETURN 

E96e' 

E6 IF 

C0NVRT5 AND 

IFH 

1 STRIP THE HIGH ORDER BITS - 5 TO 7 

E960' 

C9 

RET 





\ 

; CLEAR 

4 

i 

SCREEN 


E96E' 

3E 30 

CLRSCN5 LD 

AfOFFCUR 

i TURN OFF CURSOR 

E970' 

D3 01 

OUT 

(VTCCHD)fA 


E972' 

3E AO 

LD 

AiBLANK+FORGND 

f SET TO FOREGROUND BLANKS 

E971' 

D3 1C 

OUT 

(VTCOAT)jA 


E976’ 

21 0080 

LD 

HLfSTADR 

; SET CURSOR TO START ADDRESS 

E979* 

7D 

LD 

A>L 


E97A' 

D3 01 

OUT 

(VTCCUD.A 


E97C' 

7C 

LD 

AfH 


E97D' 

D3 05 

OUT 

(VTCCU2)rA 


E97F' 

21 07FF 

LD 

HL>ENDADR 

; SET POINTER TO END ADDRESS 

E982' 

7D 

LD 

A>L 


E983' 

D3 06 

OUT 

(VTCPTDfA 


E985' 

7C 

LD 

A>H 


E986' 

D3 07 

OUT 

(VTCPT2)jA 


E988‘ 

3E 88 

LD 

ArHRCP 

f CLEAR SCREEN 

E98A' 

CD EB2D' 

CALL 

NAIT 


E98D' 

21 0080 

LD 

HLfSTADR 

i SET CURSOR AND SCREEN TO START ADDRESS 

E990’ 

22 FFD7 

LD 

(SCSTART)tHL 

« SAVE SCREEN START ADDRESS 

E993' 

3A FFDF 

LD 

A»(SNITCH) 

f CHECK IF TV SNITCH ON 

E996' 

CB IF 

BIT 

TMfA 


E998' 

20 06 

JR 

NZiCLRSCl 

f YES 

E99A' 

7D 

LD 

AiL 

; UPDATE SCREEN START ADDRESS 
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E99E;' 

D3 02 

OUT 

(VTCSCl)rA 



E99D' 

7C 

LD 

ArH 


E99E' 

D3 03 

OUT 

(VTCSC2>fA 



E9A0' 

7D 

CLRSCi: LD 

AfL 



E9A1' 

D3 0^ 

OUT 

(VTCCUl)fA 



E9A3' 

7C 

LD 

A>H 



E9Ar 

D3 05 

OUT 

(VTCCU2)fA 



E9A6' 

AF 

XQR 

A j RESET COLUHN 8 LINE NUMBER 


E9A7' 

32 FFD^ 

LD 

<CQLN0)jA 



E9AA' 

32 FFD6 

LD 

(LINENO)..A 



E9AD' 

3E 00 

LD 

ArOFF J 

TURN OFF SCROLLING 


E9AF' 

32 F027' 

LD 

(SCRLFLG)rA 



E9B2‘ 

C9 

RET 






i 

f CLEAR TO END OF LINE 
? 



E9B3' 

3E 30 

CLREHDJ LD 

A»OFFCUR J 

TURN OFF CURSOR 


E9B5‘ 

D3 01 

OUT 

(VTCCMD)jA 



E9B7' 

21 004F 

LD 

HLrMAXCOL-1 i 

CALCULATE END OF LINE ADDRESS 


E9BA' 

ED 5B FFD1 

LD 

DEflCOLNO) 



E9BE' 

AF 

XOR 

A 



E9BF' 

ED 52 

SBC 

HL>DE 



E9Ci‘ 

DB 01 

IN 

A>(MTCCU1) 



E9C3' 

5F 

LD 

E>A 



E9C1' 

DB 05 

IN 

A»(VTCCU2) 



E9C6' 

57 

LD 

DiA 



E9C7' 

19 

ADD 

HL»OE 



E9C8' 

7D 

LD 

ArL 1 

SET POINTER TO END OF LINE 


E9C9' 

D3 06 

OUT 

(MTCPT1),A 



E9CB' 

7C 

LD 

ArH 



E9CC' 

D3 07 

OUT 

(yTCPT2)jA } 

SET TO FOREGROUND BLANKS 


E9CE‘ 

3E AO 

LD 

AfBLANK+FORGND 



E9D0' 

D3 1C 

OUT 

(UTCDADjA 



E9D2' 

CD EB28’ 

CALL 

HAIT2 > 

CLEAR LINE 


E9D5' 

7B 

LD 

A>E » 

RESET CUROSR ADDRESS 


E9D6' 

D3 01 

OUT 

(VTCCU1)»A 



E9D8' 

7A 

LD 

AtD 



E9D9' 

D3 05 

OUT 

(yTCCU2)»A 



E9DB‘ 

C9 

RET 






J 

; CLEAR TO END OF SCREEN 
? 

(FOREGROUND BLANKS) 


E9DC' 

3E AO 

CLRFSCl LD 

ArBLANK+FORGND 



E9DE' 

18 02 

JR 

CLRFl 





J 

i CLEAR TO END OF SCREEN 

(BACKGROUND BLANKS) 
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E?E0' 

3E 20 

CLRBK! LD 

AfBLANK 


E9E2' 

D3 1C 

CLRFl*. OUT 

(UTCDAT)tA 


E9E1' 

3E 30 

LD 

A,OFFCUR 

} TURN OFF CURSOR 

E9E6' 

D3 01 

OUT 

(VTCCHD)fA 


E9E8' 

OB 01 

IN 

Af(VTCCUl) 

; GET CURRENT CURSOR 

E9EA' 

6F 

LD 

LjA 


E9EB' 

DB 05 

IN 

Aj(VTCCU2) 


E9ED' 

67 

LD 

H.A 


E9EE' 

ED 5B FFD7 

LD 

DEjCSCSTART) 

5 GET SCREEN START ADDRESS 

E9F2' 

E5 

PUSH 

HL 


E9F3' 

AF 

XOR 

A ? CHECK 

IF CURSOR GREATER THEN START ADDR 

E9F1' 

ED 52 

SBC 

HLrDE 


E9F6' 

38 ID 

JR 

C»CLRF2 

; NO 

E9F8' 

11 07FF 

LD 

DE>ENDADR 

} GET END ADDRESS 

E9FB' 

7B 

LD 

A..E 

J SET UP POINTER 

E9FC‘ 

D3 06 

OUT 

(UTCPTDjA 


E9FE' 

7A 

LD 

A»D 


E9FF' 

03 07 

OUT 

(MTCPT2)rA 


EAOr 

CO EB28' 

CALL 

HAIT2 

» CLEAR LINE 

EA01' 

2A FFD7 

LD 

HL»(SCSTART) 

f GET SCREEN START ADDRESS 

EA07' 

11 0080 

LD 

DE.STADR 

} CHECK IF SAME AS START ADDRESS 

EAOA' 

AF 

XOR 

A 


EAOB’ 

ED 52 

SBC 

HLjDE 


EAOD' 

28 13 

JR 

2»CLRFRT 

; YESf RETURN 

EAOF' 

7B 

LD 

AjE 

J SET CURSOR TO START ADDRESS 

EAIO' 

D3 01 

OUT 

(VTCCUDjA 


EA12' 

7A 

LD 

A^D 


EA13' 

D3 05 

OUT 

(VTCCU2)fA 


EA15' 

2A FFD7 

CLRF2; LD 

HL»(SCSTART) 

; GET SCREEN START ADDRESS 

EA18' 

2B 

DEC 

HL ; DECREHENT TO PREVIOUS LINE 

EA19' 

7D 

LD 

AtL 

J SET POINTER TO END OF LINE 

EAIA’ 

D3 06 

OUT 

(VTCPTDjA 


EAIC 

7C 

LD 

AfH 


EAID' 

03 07 

OUT 

(VTCPT2)rA 


EAIF' 

CD EB28' 

CALL 

NAIT2 

? HAIT FOR VBLANK 

EA22' 

D1 

clrfrt: pop 

DE 5 RESTORE CURSOR 

EA23‘ 

7B 

LD 

A>E 


EA21' 

D3 01 

OUT 

(VTCCUDtA 


EA26‘ 

7A 

LD 

AiD 


EA27' 

D3 05 

OUT 

(VTCCU2)yA 


EA29' 

C9 

RET 




? DELETE LINE 
( 

EA2A' 3E 30 OELLNEJ LD A»0FFCUR ? TURN OFF CURSOR 
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EA2C' 

D3 01 


OUT 

<VTCCHO)»A 


EA2E’ 

DB 01 


IN 

Af(VTCCUl) 


EA30' 

6F 


LD 

L>A 


EA31‘ 

DE 05 


IN 

Af(VTCCU2> 


EA33' 

67 


LD 

HfA 


EA31' 

ED SB FFD1 


LD 

DE»(COLNO) 


EA38' 

AF 


XOR 

A 


EA39' 

32 FFD1 


LD 

(COLNO)rA 

f UPDATE COLUHN NUHBER 

EA3C' 

ED 52 


SBC 

HLfDE 


EA3E' 

E5 


PUSH 

HL f SAVE LINE FIRST ADDRESS 

EA3F’ 

3A FFD6 


LD 

A>(LINENO) 

f GET LINE NUHBER 

EA12' 

32 F02E' 


LD 

(LINETP)»A 


EA15' 

7D 

DELi: 

LD 

A»L 


EA16' 

03 01 


OUT 

(VTCCUl)fA 


EA18' 

7C 


LD 

A>H 


EA19' 

D3 05 


OUT 

(MTCCU2)>A 


EA1B' 

3A F02E' 


LD 

A.(LINETP) 

f CHECK IF AT LAST LINE 

EA1E' 

FE 17 


CP 

MAXLIN 


EA50' 

28 3A 


JR 

ZrDELCLR 

f YESf CLEAR LAST LINE 

EA52' 

3C 


INC 

A 


EA53‘ 

32 F02E' 


LD 

(LINETP)fA 

f SAVE LINE NUHBER 

EA56' 

11 001F 


LD 

DEfMAXCOL-1 

f CALCULATE NEXT LINE ADDRESS 

EA59' 

19 


ADD 

HLiDE 


EA5A' 

EB 


EX 

DErHL 


EA5B' 

21 07FF 


LD 

HLfENDADR 


EASE' 

AF 


XOR 

A 


EASE' 

ED 52 


SBC 

HLfDE 


EA61' 

28 03 


JR 

ZfDEL2 


EA63' 

13 


INC 

DE 


EA61' 

18 03 


JR 

DELS 


EA66' 

11 0080 

DEL2: 

LD 

DEfSTADR 


EA69’ 

7B 

DEL3} 

LD 

AfE 

f SET POINTER TO NEXT LINE ADDRESS 

EA6A’ 

D3 06 


OUT 

(VTCPTl)fA 


EA6C' 

7A 


LD 

AfD 


EA6D' 

D3 07 


OUT 

(VTCPT2)fA 


EA6F' 

D5 


PUSH 

DE » SAVE NEXT LINE ADDRESS 

EA70' 

06 50 


LD 

BfHAXCOL 


EA72’ 

3E A1 

DELI 5 

LD 

AfRDPT 

! READ FROH POINTER 

EA71' 

CD EB2D' 


CALL 

WAIT 


EA77' 

DB OD 


IN 

Af(VTCINP) 

f GET CHARACTER 

EA79' 

D3 1C 


OUT 

(VTCDAT)fA 

f SEND CHARACTER 

EA7B' 

3E AB 


LD 

AfNRINC 

? WRITE AT CURSOR 8 INCREHENT 

EA7D' 

CD EB2D’ 


CALL 

WAIT 


EA80' 

13 


INC 

DE } INCRMENT POINTER ADDRESS 

EA81' 

7B 


LD 

AfE 


m 

CO 

D3 06 


OUT 

(VTCPTl)fA 


EA81' 

7A 


LD 

AfD 


EA85’ 

D3 07 


OUT 

(VTCPT2)fA 



EA87' 10 E9 


DJNZ DELI 


} REPEAT FOR WHOLE LINE 
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EA89' 

El 

POP 

EA8A' 

18 B9 

JR 

EA8C' 

11 004F 

DELCLR5 LD 

EA8F' 

19 

ADD 

EA90' 

7D 

LD 

EA91' 

D3 06 

OUT 

EA93' 

7C 

LD 

EA94' 

D3 07 

OUT 

EA96' 

3E AO 

LD 

EA98' 

D3 1C 

OUT 

EA9A' 

CD EB28' 

CALL 

EA9D' 

El 

POP 

EA9E' 

7D 

LD 

EA9F' 

D3 04 

OUT 

EAAl' 

7C 

LD 

EAA2' 

D3 05 

OUT 

EAA4' 

C9 

RET 


HL 

DELI 

DE»HAXC0L-1 } SET POINTER TO END OF LINE 

HLfDE 

A>L 

(VTCPTDjA 

AfH 

(yTCPT2)fA 

AfBLANK+FORGND 

(MTCOADjA 

WAIT2 } CLEAR LINE 

HL ; RESTORE CURSOR 
A,L 

(MTCCUDfA 

A>H 

(MTCCU2)rA 


i INSERT LINE 

f 





EAA5' 

3E 30 

INSLNEI LD 

A»OFFCUR 

EAA7' 

03 01 

OUT 

(MTCCHD)»A 

EAA9' 

DB 04 

IN 

A»(MTCCU1) 

EAAB' 

6F 

LD 

LfA 

EAAC 

DB 05 

IN 

A»(MTCCU2) 

EAAE' 

67 

LD 

HfA 

EAAF' 

ED 5B FFD4 

LD 

DEj(COLNO) 

EAB3' 

AF 

XOR 

A 

EAB4' 

32 FFD4 

LD 

(C0LN0)»A 

EAB7' 

ED 52 

SBC 

HL^DE 

EAB9' 

E5 

PUSH 

HL 

EABA' 

7D 

LD 

AfL 

EABB' 

D3 04 

OUT 

(MTCCU1)>A 

EABD' 

7C 

LD 

A;H 

EABE' 

D3 05 

OUT 

(VTCCU2)»A 

EACO' 

06 50 

LD 

BrKAXCOL 

EAC2' 

21 F326’ 

LD 

HLfBUFTP 

EAC5' 

3E AC 

INSIJ LD 

AiRDCUR 

EAC7' 

CD EB2D' 

CALL 

WAIT 

EACA' 

DB OD 

IN 

Af(MTCINP) 

EACC 

77 

LD 

(HL)»A 

EACD' 

23 

INC 

HL 

EACE- 

3E AO 

LD 

A»BLANKtFORGND 

EADO' 

D3 1C 

OUT 

(VTCDAT)»A 

EAD2' 

3E AB 

LD 

ArWRINC 

EAD4' 

CD EB2D' 

CALL 

WAIT 

EAD7' 

10 EC 

DJNZ 

INSl 


> TURN OFF CURSOR 
} CALCULATE LINE BEGIN ADDRESS 


» SET CURSOR TO BEGINNING ADDRESS 

f SET TO TEHPORARY BUFFER 

J READ AT CURSOR 

J GET CHARACTER 
; SAME IN BUFFER 

f WRITE SPACE 


; BLANK LINE 
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EAD9' 

3A FFD6 


LD 

A>(LINEND) 

EADC 

32 F02E' 


LD 

(LINETP)»A 

EADF‘ 

3A F02E‘ 

INS2; 

LD 

A»(LINETP) 

EAE2' 

FE 17 


CP 

HAXLIN 

EAE^' 

28 3A 


JR 

ZfINSRT 

EAE6' 

3C 


INC 

A 

EAE7' 

32 F02E’ 


LD 

(LINETP)!A 

EAEA' 

DB O'! 


IN 

Af(VTCCLIl) 

EAEC 

5F 


LD 

E;A 

EAED' 

DB 05 


IN 

A»(VTCCU2) 

EAEF' 

57 


LD 

DrA 

EAFO' 

IB 


DEC 

DE 

EAFl' 

21 07FF 


LD 

HLjENDADR 

EAFr 

AF 


XOR 

A 

EAF5’ 

ED 52 


SBC 

HLfDE 

EAF7' 

28 03 


JR 

ZfINSS 

EAF9' 

13 


INC 

DE 

EAFA' 

18 03 


JR 

INS1 

EAFC 

11 0080 

INS3; 

LD 

DEjSTADR 

EAFF' 

7B 

INS15 

LD 

ArE 

EEiOO’ 

D3 01 


OUT 

(MTCCUDtA 

EB02’ 

7A 


LD 

A;D 

EE:03' 

D3 05 


OUT 

(VTCCU2)jA 

EBOS' 

06 50 


LD 

BtHAXCOL 

EB07‘ 

21 F326' 


LD 

HLfBUFTP 

EBOA' 

3E AC 

INS5: 

LD 

AfROCUR 

EBOC 

CD EB2D‘ 


CALL 

NAIT 

EBOF' 

DB OD 


IN 

Ar(VTCINP) 

EBll' 

IF 


LD 

C»A 

EB12' 

7E 


LD 

Aj(HL) 

EB13‘ 

D3 1C 


OUT 

(VTCDAT)fA 

EB15' 

3E AB 


LD 

AfHRINC 

EB17' 

CD EB2D' 


CALL 

HAIT 

EBIA' 

71 


LD 

(HL)»C 

EBIB’ 

23 


INC 

HL 

EBIC 

10 EC 


DJNZ 

INS5 

EBIE' 

18 BF 


JR 

INS2 

EB20' 

El 

INSRT5 

POP 

HL i 1 

EB2r 

7D 


LD 

AfL 

EB22' 

D3 01 


OUT 

(VTCCUl)fA 

EB2^' 

7C 


LD 

ArH 

EB25' 

03 05 


OUT 

(VTCCU2)»A 

EB27' 

C9 


RET 





4 

; CLEAR LINE 

4 

EB28' 

CD EB38' 

WAIT2; 

CALL 

HAITI 

EB2B' 

3E BB 


LD 

A»WRCP 


CHECK IF AT LAST LINE 

yesj return 

CHECK IF END ADDRESS 


YES 

SET NEXT LINE ADDRESS 


HOVE LINE DOHN 


CURSOR 


> NAIT FOR VBLANK 
; CLEAR LINE 
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> WAIT FOR END OF PVTC COHHAND 
» A = PVTC COHHAND 


EB2D' 

F3 

HAITI 

DI 

f DISABLE INTERRUPT 

EB2E’ 

03 01 


OUT 

(VTCCHD>»A ! SEND COHHAND 

EB30' 

DB 01 

L00P9! 

IN 

AjCVTCSTA) t GET STATUS 

EB32’ 

CB 6F 


BIT 

RDYFLGfA ? CHECK READY FLAG 

EB3r 

28 FA 


JR 

Z.L00P9 : LOOP AND HAIT 

EB36' 

FB 


El 

1 ENABLE INTERRUPT 

EB37' 

C? 


RET 

; RETURN 




f 

; WAIT FOR VBLANK 


EB38' 

3A FFDF 

HAITI! LD 

AjfSHITCH) 

» CHECK IF TV SWITCH ON 

EB3B' 

CB ^F 

BIT 

TV»A 


EB3D' 

28 OE 

JR 

Z.HAITNO 

; NO 

EB3F' 

3E 00 

LD 

At OFF 

1 CLEAR VBLANK FLAG 

EB^l' 

32 FFDD 

LD 

(VBFLAG)jA 


EB^r 

3A FFDD 

LOOPIOJ LD 

Af(VBFLAG) 

; GET VBLANK FLAG 

EB47' 

FE FF 

CP 

ON > CHECK 

IF VBLANK PERIOD 

EB19‘ 

20 F9 

JR 

NZtLOOPIO 

i NOt HAIT TILL VBLANK 

EB4B‘ 

18 OC 

JR 

HAITRT 


EB1D' 

3E 10 

HAITN05 LD 

AtRSTFLG 

} RESET VBLANK FLAG 

EB4F' 

CB E7 

SET 

VBLANKTA 


EB51' 

D3 01 

OUT 

(UTCCHD)tA 


EB53' 

DB 01 

LOOPllJ IN 

At(VTCSTA) 

; GET STATUS 

EB55' 

CB 67 

BIT 

VBLANKTA 

f CHECK IF VBLANK 

EB57‘ 

28 FA 

JR 

ZfLOOPll 

> not wait 

EB59' 

C9 

HAITRT! RET 

1 RETURN 



! DUHHY ROUTINE 

♦ 


EB5A' 

C9 

NONE! RET 




» 




J 

PUT LIST CHARACTER 



i 

> 

C = CHARACTER 

EB5B' 

CD EB91' 

LIST! CALL 

LISTST } CHECK STATUS 

EB5E' 

B7 

OR 

A 

EB5F' 

28 FA 

JR 

ZtLIST ? HAIT FOR READY 

EB61' 

CD EB35' 

CALL 

LISTOT 

EB6V 

3E OD 

LD 

AfCR 
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EB66' 

B9 


CP 

EB67' 

28 OA 


JR 

EB69' 

3E OC 


LD 

EB6B' 

B9 


CP 

EB6t:’ 

28 05 


JR 

EB6E' 

3E OA 


LD 

EB70' 

B9 


CP 

EB71' 

20 11 


JR 

EB73' 

C5 

LISTII 

PUSH 

EB7r 

06 OA 


LD 

EB76' 

CD EB9T' 

LQ0P201 

CALL 

EB79' 

B7 


OR 

EB7A' 

28 FA 


JR 

EB7C‘ 

OE 00 


LD 

EB7E' 

CD EB85' 


CALL 

EB81' 

10 F3 


DJNZ 

EB83' 

Cl 


POP 

EB84' 

C9 

LI3TRTJ 

RET 

EB85’ 

79 

LISTOTJ 

LD 

EB86' 

03 00 


OUT 

EB88' 

3A FFE2 


LD 

EB8B' 

CB DF 


SET 

EB8D' 

D3 18 


OUT 

EB8F' 

CB 9F 


RES 

EB91' 

D3 18 


OUT 

EB93' 

C9 


RET 


t 

t 


£m‘ 

C5 

LISTSTJ PUSH 

EB95' 

DB 13 

IN 

EB97' 

CB 6F 

BIT 

EB99' 

28 37 

JR 

EB9B’ 

3A F031' 

LD 

EB9E' 

FE FF 

CP 

EBAO' 

28 2C 

JR 

EBA2' 

ED TB F576' 

LD 

EBA6' 

OB 

DEC 

EBA7' 

ED 13 F576‘ 

LD 

EBAB‘ 

78 

LD 

EBAC 

B1 

OR 

EBAD’ 

20 1C 

JR 

EBAF' 

21 EF97‘ 

LD 

EBB2' 

CD E3D1' 

CALL 


C 

Z-LISTl 

AjFHFEED 

C 

ZfLISTl 

A.LF 

C 

NZ»LISTRT 

BC 

BrPADDING 

LISTS! 

A 

ZfLOOPZO 

c?o 

LISTQT 

L00P20 

BC 


AjC 

(PTRDAT)jA 5 SEND DATA TO DATA REGISTER 
Ar(IOREG) : GET PREVIOUS I/O REGISTER VALUE 

PTRSTRjA 5 SET STROBE 

(CONTRL)rA ; SEND TO CONTROL REGISTER 

PTRSTRrA 1 RESET STROBE 

(CONTRL).A t SEND TO CONTROL REGISTER 


RETURN LIST STATUS 
A = OFFH? READY 
= OOOH» NOT READY 


BC 

A»(STATUS) 5 CHECK IF PRINTER BUSY 

PTRBSYfA 

Z.LISTS3 

Af(TIHEOUT) ? CHECK IF TIHEOUT 

ON 

ZrLISTSZ i YES 

BCj(TIMER) ; DECREMENT TIMER 

BC 

(TIMER),BC 

A?B 

C 

NZfLISTSl 

HL»ERMSG3 

PMSG 
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EBBS' 

CD E4E4' 

L00P17} CALL 

CONIN J PROMPT FOR RESPONSE 


EBBS' 

FE OD 

CP 

CR 

EEBA' 

20 F9 

JR 

NZfL00P17 


EBBC 

OE OD 

LD 

CfCR J SEND CR « LF 


EBBE' 

CD E59D' 

CALL 

CONOUT 


EBCl' 

OE OA 

LD 

CjLF 


EBC3' 

CD E59D' 

CALL 

CONOUT 


EBC6' 

3E FF 

LD 

AjON ; TURN ON TIMEOUT 


EBC8' 

32 F034’ 

LD 

(TIMEOUT)jA 


EBCB' 

AF 

LISTSi; XOR 

A ; NOT READY 


EECC 

18 12 

JR 

LSTRET 


EBCE' 

3E FF 

LISTS25 LD 

AfOFFH 5 TIMEOUT ALREADY 


EBDO' 

18 OE 

JR 

LSTRET 


EBDZ'- 

3E 00 

LISTS35 LD 

AjOFF > READY 


EBD1' 

32 F034' 

LD 

(TIMEOUT)»A 


EBD7' 

01 FFFF 

LD 

BC»TIMING 


EBDA’ 

ED 43 F576' 

LD 

(TIMER)rBC 


EBOE' 

3E FF 

LD 

AjOFFH 


EBEO' 

Cl 

LSTRETt POP 

BC 


EBEl' 

C9 

RET 





f 

X 

PUT PUNCH CHARACTER 




♦ 

t 

C = CHARACTER 


EBE2' 

C9 

punch; ret 



EBE3' 

00 00 

DB 

0.0 ; SPARE 




f 

i 

GET READER CHARACTER 




* 

f 

J 

A = CHARACTER 


EBE5' 

C9 

reader; ret 



EBE6' 

00 00 

DB 

0»0 ; SPARE 




t 

J 

5 

I/O DRIVERS FOR THE DISK 




4 

f 

f 

HOME DISK 


EBE8' 

01 0000 

HOHE; LD 

BCfO 




f 





i 

SET TRACK NUMBER 




f 

BC = LOGICAL TRACK NUMBER 




EBEB' 

ED 43 F09A' 

SETTRKJ LD 

(SEKTRKlfBC 


EBEF* 

C9 

RET 





f 

A 

t 

SELECT DISK 




A 

> 

C = DISK NUHBER 



A 

> 

J 

E = Of DISK OFFLINE 

EBFO' 

79 

seldsk: ld 

AfC 

; GET DISK SELECTED 

EBFl' 

FE 03 

CP 

KAXDSK 

} CHECK IF OVER LIMIT 

EBF3' 

30 35 

JR 

NCfSELBAD 

i YESf BAD SECLECTION 

EBF5' 

21 E233' 

LD 

HLfDSKHAP 

} GET PHYSCAL DISK NUHBER 

EBF8' 

06 00 

ld 

BfO 


EBFA' 

09 

ADD 

HLfBC 


EBFB' 

7E 

LD 

Af(HL) 


EBFC 

FE FF 

CP 

OFFH 

; CHECK IF DISK EXISTS 

EBFE’ 

28 2A 

JR 

ZfSELBAD 

; N0> BAD SELECTION 

ECOO' 

32 F099' 

LD 

(SEKDSK)fA 

t SAVE DISK NUHBER 

EC03’ 

CD EC39' 

CALL 

GETPARH 

1 GET DISK PARAMETERS 



A 

f 

A 

f 

A 

f 

RESTORE DISK DRIVE 

EC06' 

7B 

selhhe: ld 

AfE 

} GET OFF-LINE FLAG 

EC07' 

B7 

OR 

A ? CHECK IF OFF-LINE 

EC08' 

20 lA 

JR 

NZfSELOK 

t NO 

ECOA' 

3A F0A7' 

LD 

Af(BUFACT) 


ECOD' 

FE FF 

CP 

ON 


ECOF' 

28 OE 

JR 

ZfSELHHl 


ECU' 

C5 

PUSH 

BC 


EClZ' 

D5 

PUSH 

DE 


EC13‘ 

21 F09D' 

LD 

HLfHRTYPE 


EC16’ 

06 11 

LD 

Bfl7 


EC18' 

AF 

XOR 

A 


EC19' 

77 

L00P12J LD 

(HL)fA 


ECIA' 

23 

INC 

HL 


ECIB' 

10 FC 

DJNZ 

L00P12 


ECID' 

D1 

POP 

DE 


ECIE' 

Cl 

POP 

BC 


ECIF' 

CD EDEC 

SELHHi: CALL 

RSTORE 

f RESTORE DRIVE IF OFF-LINE 

EC22' 

38 OC 

JR 

CfSELRST 

t RESTORE ERROR 



A 

f 

A 

f 

A 

f 

RETURN DISK PARAHETER HEADER ADDRESS 

EC24' 

2A FOCO' 

SELOK! LD 

HLf(DPADDR) 

f RETURN DPH ADDR IN HL 
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EC27' 

AF 

XOR 

A 


EC28’ 

18 OE 

JR 

SELRET 


EC2A' 

21 EFCA' 

selbad: LD 

HLjERMSG4 


EC2D' 

CD E3D1' 

CALL 

PMSG 


EC30‘ 

AF 

selrst: XOR 

A 5 RESET CURRENT DISK TO A 

EC31' 

32 0004 

LD 

(CDISK)fA 


EC34‘ 

21 0000 

LD 

HLtO 

; SET ERROR RETURN 

EC37' 

37 

SCF 



EC38' 

C9 

selret: ret 





i 

f 

GET DISK PARAMETERS 



f 

IN 5 

A = PHYSICAL DISK NUMBER 



f 

out; 

NONE 



f 

t 

changed: 

NONE 

EC3?' 


getparhj 



EC39' 

F5 

PUSH 

AF 


EC3A- 

C5 

PUSH 

BC 


EC3B' 

D5 

PUSH 

de 


EC3C' 

E5 

PUSH 

hl 


EC3D' 

CB 27 

SLA 

A ; TIMES 

il 

EC3F' 

CB 2? 

SLA 

A ; TIMES 4 

EC41' 

4F 

LD 

C»A 

; SAVE FOR LATER 

EC42' 

CB 27 

SLA 

A ? TIMES 

8 

EC44' 

CB 27 

SLA 

A ; TIMES 16 

EC46' 

6F 

LD 

LjA 


EC47‘ 

26 00 

LD 

H»0 


EC49' 

06 00 

LD 

B»0 


EC4B' 

09 

ADD 

HL»BC 

; TIMES 20 

EC4C' 

01 E237' 

LD 

BCfDPBASE 


EC4F' 

09 

ADD 

HL»BC 

; HL=DPBASE(DISKN0*20) 

EC50' 

22 FOCO' 

LD 

(DPADDR)jHL 

i SAME THE DPH ADDR 



) 

> 

} 

MOOE DISK TABLE INFORMATION 

EC53' 

01 0010 

LD 

BCfl6 

5 CALCULATE OFFSET TO DISK TABLE ADDRESS 

EC56' 

09 

ADD 

HLjBC 


EC57’ 

5E 

LD 

Ef<HL) 

f GET DISK TABLE ADDRESS 

EC58' 

23 

INC 

HL 


EC59' 

56 

LD 

DnHL) 


EC5A' 

ED 53 FOBE' 

LD 

(DSKTAB)fDE 

} SAUE DISK TABLE ADDRESS 

EC5E' 

01 0006 

LD 

BC»6 

; SET LENGTH OF MOVE 

EC61' 

21 FOAE' 

LD 

HLfSELBYT 

; MOVE INTO DATA AREA 

EC64' 

EB 

EX 

DEjHL 


EC65' 

ED BO 

LDIR 

f HOME DISK TABLE INFORMATION 

EC67' 

22 FOBC’ 

LD 

(LSTADR)fHL 

; SAVE LAST TRACK ADDRESS 


t 


MOVE TAB INFORMATION 
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EC6A' 

2A FOCO' 

LD 

HLj(DPADDR) ; GET DP HEADER ADDRESS 

EC6D' 

01 0012 

LD 

GCrl8 ; CALCULATE OFFSET TO TAB ADDRESS 

EC70' 

09 

ADD 

HLfBC 

EC71' 

5E 

LD 

E»CHL) f GET TAB ADDRESS 

EC72' 

23 

INC 

HL 

EC73' 

56 

LD 

D,(HL) 

EC71' 

01 0008 

LD 

BCf8 ; SET LENGTH OF MOVE 

EC77' 

21 F0B1' 

LD 

HLjHSTSIZ i MOVE INTO DATA AREA 

EC7A' 

EB 

EX 

DErHL 

EC7B' 

ED GO 

LDIR 

; HOVE TAG INFORMATION 

EC7D' 

El 

POP 

HL 

EC7E' 

D1 

POP 

DE 

EC7F' 

Cl 

POP 

BC 

EC80' 

FI 

POP 

AF 

EC81' 

C9 

RET 




f 

f 

SET SECTOR NUMBER 



f 

i 

C = SECTOR NUMBER 

EC82' 

79 

SETSECI LD 

AjC 

EC83' 

32 F09C' 

LD 

(SEKSEOjA 

EC86' 

C9 

RET 




f 

I 

TRANSLATE SECTOR NUMBER 



f 

BC = LOGICAL SECTOR NUMBER 




} 

DE = 



5 

HL = 

EC87' 


3ECTRANJ 


EC87' 

F5 

PUSH 

AF 

EC88’ 

7A 

LD 

AfD 

EC89' 

B3 

OR 

E 

EC8A' 

28 08 

JR 

ZiSECTNl 

EC8C' 

EB 

EX 

DE»HL 

EC8D‘ 

09 

ADD 

HLfGC 

EC8E' 

23 

INC 

HL 

EC8F' 

6E 

LD 

LflHL) 

EC90' 

26 00 

LD 

H;0 

EC92’ 

18 03 

JR 

SECTRT 

EC91' 

C5 

SECTNlt PUSH 

BC 

EC95' 

El 

POP 

HL 

EC96' 

23 

INC 

HL 

EC97' 

FI 

SECTRTJ POP 

AF 

EC98' 

C9 

RET 



; NO TRANSLATION 


! INDEX INTO TRANSLATION TABLE 
OFFSET BY 1 

{ GET SECTOR NUMBER 


I RETURN 


SET DMA ADDRESS 
BC = DMA ADDRESS 
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EC99' 

69 

SETDHAl LD 

LjC 


EC9A' 

60 

LD 

HfB 


EC9B' 

22 FOAB‘ 

LD 

«DMAAD)fHL 

f SAUE DMA ADDRESS 

EC9E' 

C9 

RET 





♦ 

4 

READ/NRITE ROUTINE 



# 

♦ 

C = NRITE TYPE 



t 

4 

i 

WRITE A SECTOR 


EC9F' 


HRDISKl 



EC9F' 

ED 73 F582' 

LD 

(DOSSTK).SP 

f USE LOCAL STACK 

ECA3' 

31 F5C0' 

LD 

SPjLOCSTK 


ECA6' 

79 

LD 

A.C 

f GET WRITE TYPE 

ECA7' 

32 F090' 

LD 

(HRTYPE).A 

; SAME TYPE 

ECAA' 

3E 01 

LD 

A » WRITE 

; SET WRITE OPERATION 

ECAC 

32 F09E' 

LD 

(RDHROP)fA 

j SAVE OPERATION 

ECAF' 

18 OC 

JR 

RWOPER 




r 

\ 

« 

READ A SECTOR 


ECBl' 


rddisk: 



ECBl' 

ED 73 F582' 

LD 

(DQSSTK),SP 


ECB5' 

31 F5C0' 

LD 

SPrLOCSTK 


ECB8‘ 

3E 00 

LD 

AfREAD 

» SET READ OPERATION 

ECBA' 

32 F09E' 

LD 

(RDHROP)rA 

? SAVE OPERATION 

ECBD‘ 


RNOPERl 





? 

5 COMPUTE PHYSICAL SECTOR » TRACK IS THE SAME 

> 

ECBD' 

AF 

XOR 

A 


ECBE' 

32 FOAA' 

LD 

(ERFLAG).A 

J CLEAR ERROR FLAG 


? CALCULATE PHYSICAL SECTOR NUHBER 


ECC1‘ 

3A FOEB' 


LD 

Aj(SECSHF) 

ECC1' 

17 


LD 

BrA 

ECC5’ 

3A F09C’ 


LD 

Ar(SEKSEC) 

ECC8' 

30 


DEC 

A 

ECC9' 

01 


INC 

B 

ECCA' 

05 

RWlt 

DEC 

B 

ECCB' 

28 05 


JR 

ZjRW2 

ECCD' 

37 


SCF 


ECCE’ 

3F 


CCF 



? L0G2 OF BLOCKING FACTOR 


? GET LOGICAL SECTOR NUMBER 
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ECCF' 

IF 

RRA 

i DIVIDE LOGICAL SECTOR BY 2 

ECDO' 

18 F8 

JR 

RHl 


ECD2' 

3C 

mt INC 

A 


EC03' 

32 F0A8' 

LD 

(HSTSEOrA 

t SAVE PHYSICAL SECTOR NUHBER 

ECD6' 

3A F09C' 

LD 

A>(SEKSEC) 


ECD9' 

3D 

DEC 

A 


ECDA' 

17 

LD 

BrA 


ECDB' 

3A FOBA' 

LD 

A>(SECHSK) 

» GET SECTOR HASK 

ECDE' 

AO 

AND 

B 


ECDF‘ 

32 F0A9' 

LD 

(LOGOFF)»A 

i SAVE LOGICAL OFFSET OF HITHIN SECTOR 

ECE2' 

3A F0A3' 

LD 

A»(BUFDSK) 

» GET DISK FOR HOST BUFFER 

ECE5' 

17 

LD 

BfA 


ECE6’ 

3A F099' 

LD 

A>(SEKDSK) 

5 GET DISK FOR R/N 

ECE9' 

B8 

CP 

B ) CHECK 

IF SANE 

ECEA' 

20 16 

JR 

NZfDIFBUF 

; N0> DIFFERENT BUFFER 

ECEC 

ED IB F0A1' 

LD 

BCr(BUFTRK) 

; GET TRACK FOR HOST BUFFER 

ECFO' 

2A F09A' 

LD 

HL»(SEKTRK) 

f GET TRACK FOR R/H 

ECF3' 

AF 

XOR 

A 


ECF1' 

ED 12 

SBC 

HLfBC 

; CHECK IF SANE TRACK 

ECF6' 

20 OA 

JR 

NZtDIFBUF 

; NO? DIFFERENT BUFFER 

ECF8' 

3A F0A6' 

LD 

Ar(BUFSEC) 

} GET SECTOR FOR BUFFER 

ECFB' 

17 

LD 

B>A 


ECFC‘ 

3A F0A8' 

LD 

Aj(HSTSEC) 

; GET SECTOR FOR R/H 

ECFF' 

B8 

CP 

B ) CHECK 

IF SANE SECTOR 

EDOO' 

28 1C 

JR 

Z.RNLAST 

f SANE 



5 

} 

DIFFERENT BUFFER 


A 

i 


ED02' 

3A F0A7' 

DIFBUFJ LD 

Af(BUFACT) 

; CHECK IF BUFFER ACTIVE 

ED05' 

FE FF 

CP 

ON 


ED07' 

3E 00 

LD 

A»OFF 


ED09' 

32 F0A7‘ 

LD 

(BUFACT)»A 

J SET BUFFER INACTIVE 

EDOC 

CC EDA5' 

CALL 

Z»HRHST 

f HRITE HOST HHEN ACTIVE 

EDOF' 

3A F09E' 

LD 

A?(RDHROP) 

? GET OPERATION CODE 

ED12' 

FE 00 

CP 

READ 

1 CHECK IF READ OPERATION 

ED11' 

28 05 

JR 

ZfOPREAD 

; YES? READ SECTOR 

ED16' 

3A F09D’ 

LD 

Af(HRTYPE) 

? CHECK IF HRITE TO ALLOCATED SECTOR 

ED19' 

FE 00 

CP 

HRALL 


EDIB' 

CC ED78' 

opread: call 

ZiRDHST 

? YES? READ HOST 

EDIE' 

CO ED3F' 

rhlast: call 

TRANS 

? TRANSFER CONTENT 

ED21’ 

3A F09E' 

LD 

Af(RDHROP) 

? GET OPERATION CODE 

ED21' 

FE 00 

CP 

READ 

f CHECK IF READ 

ED26' 

28 OF 

JR 

ZfRHRET 

? YES? RETURN 

ED28' 

3A F09D' 

LD 

Af(HRTYPE) 

? GET HRITE TYPE 

ED2B' 

FE 01 

CP 

HRDIR 

? CHECK IF DIRECTORY ACTIVITY 

ED2D' 

20 08 

JR 

NZfRHRET 

? NO? RETURN 
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ED2F' 

CD EDA5' 

CALL 

WRHST 

; HRITE HOST 

E032' 

3E 00 

LD 

AfOFF 

t SET BUFFER TO INACTIVE 

E03r 

32 FOA?' 

LD 

(BUFACT)jA 


ED37‘ 

3A FOAA' 

rmret: LD 

Af(ERFLAG) 

? RETURN ERROR CODE 

ED3A' 

ED 7E: F582' 

LD 

SP»(OOSSTK) 


E03E' 

C9 

RET 




f 




* 

t 

TRANSFER CONTENT OF BUFFER 

E03F' 

AF 

TRANS5 XOR 

A ? CLEAR CARRY 

ED10' 

3A F0A9' 

LD 

A»(LOGOFF) 

5 GET OFFSET IN SECTORS 




* CALCULATE OFFSET VALUE WITHIN BUFFER 




; USING LOGICAL RECORD LENGTH OF 128 

EDt3' 

IF 

RRA 

t ROTATE RIGHT» INTO CARRY 

ED'!4' 

67 

LD 

HrA 


ED15' 

3E 00 

LD 

AjO 


ED17' 

IF 

RRA 

J ROTATE CARRY INTO HIGH BIT 

ED48' 

6F 

LD 

L.A 

: GET OFFSET VALUE 

ED^9' 

11 F376' 

LD 

DEjHSTBUF 

; GET BUFFER ADDRESS 

EDC* 

19 

ADD 

HLfOE 

t CALCULATE LOGICAL RECORD ADDRESS IN BUFFER 

ED1D' 

3A F0A8' 

LD 

Aj(HSTSEC) 

f UPDATE BUFFER SECTOR NUMBER 

ED50' 

32 F0A6' 

LD 

(BUFSEOtA 


ED53' 

3A F099' 

LD 

A,(SEKDSK) 

f UPDATE BUFFER DISK NUMBER 

ED56' 

32 F0A3' 

LD 

(BUFDSK)»A 


ED59' 

ED 5B F09A' 

LD 

DE»{SEKTRK) 

? UPDATE BUFFER TRACK NUMBER 

ED5D' 

ED 53 FOM' 

LD 

(BUFTRK)jDE 


ED61' 

ED 5B FOAE’ 

LD 

DE>(DHAAD) 

t GET TRANSFER ADDRESS 

ED65' 

01 0080 

LD 

BCfRECLEN 

i GET LENGTH OF TRANSFER 

ED68' 

3A F09E' 

LD 

Aj(RDHROP) 

} GET OPERATION CODE 

ED6e' 

FE 00 

CP 

READ 

t CHECK IF READ 

ED6D‘ 

28 06 

JR 

ZjTRANI 

; YES 

ED6F' 

3E FF 

LD 

AfON 

! SET BUFFER ACTIVE 

ED71’ 

32 F0A7' 

LD 

(BUFACT)fA 


ED71‘ 

EB 

EX 

DEfHL 

: EXCHANGE SOURCE AND DESTINATION 

ED75’ 

ED BO 

TRANi; LDIR 

; HOVE LOGICAL RECORD 

ED77' 

C9 

RET 





5 

f 

READ A PHYSICAL SECTOR 



t 

CARRY ON = 

ERROR RETURN 



f 

changed: 

A 


ED78' 

E5 

RDHST: PUSH 

HL 


ED79' 

3A F099' 

LD 

A»(SEKDSK) 

5 GET DISK NUMBER 

ED7C' 

CD EC39' 

CALL 

GETPARM 

} GET PARAMETERS 

ED7F' 

2A F09A‘ 

LD 

HL»(SEKTRK) 

; GET LOGICAL TRACK NUMBER 

ED82' 

22 F09F' 

LD 

(RHTRK)fHL 


ED85' 

3A F0A8' 

LD 

Af(HSTSEC) 

GET PHYSICAL SECTOR NUMBER 

ED88‘ 

32 FOAl' 

LD 

(RWSEOfA 




ED8B' 

CD EEIF' 

CALL 

SEEK 

} SEEK TRACK 

ED8E' 

38 43 

JR 

CfHSTERR 

J ERROR 

ED90' 

3A F0B3' 

LO 

Ar(DSKTYP) 

J GET DISK TYPE 

ED93' 

CB 47 

BIT 

DISKTY»A 

> CHECK IF HARD DISK 

ED95' 

20 07 

JR 

NZfRDHSTl 

f READ FROH HARD DISK 

ED97' 

CD EED7‘ 

CALL 

RDFDSK 

; READ FROH FLOPPY DISK 

ED9A’ 

38 37 

JR 

CrHSTERR 

f ERROR 

ED9C' 

18 32 

JR 

HSTNOR 

1 NORHAL RETURN 

ED9E' 

CO EF2A' 

RDHSTIJ CALL 

RDHDSK 

i READ FROH HARD DISK 

EDAl' 

38 30 

JR 

C»HSTERR 

f ERROR 

EDA3' 

18 2B 

JR 

HSTNOR 

! NORHAL RETURN 



> 

> 

WRITE A PHYSICAL SECTOR 



> 

? 

CARRY ON 

= ERROR RETURN 

EDA5' 

E5 

RRHST5 PUSH 

HL 


EDA6' 

3A F0A3' 

LD 

Af(BUFDSK) 

5 GET DISK NUHBER 

EDA?' 

CD EC39’ 

CALL 

GETPARH 

1 GET PARAHETERS 

EDAC 

2A F0A4’ 

LD 

HLHBUFTRK) 

» GET LOGICAL TRACK NUMBER 

EDAF' 

22 F09F' 

LD 

(RWTRKlfHL 


EDB2' 

3A F0A6' 

LD 

Aj(BUFSEC) 

; GET PHYSICAL SECTOR NUHBER 

EDB5' 

32 FOAl' 

LO 

(RWSEOiA 


EDB8' 

CD EEIF' 

CALL 

SEEK 

i SEEK TRACK 

EDBB' 

38 16 

JR 

C,HSTERR 

; ERROR 

EDBD' 

3A F0B3’ 

LD 

Aj(DSKTYP) 

f GET DISK TYPE 

EDCO' 

CB 47 

BIT 

DISKTYjA 

J CHECK IF HARD DISK 

EDC2’ 

20 07 

JR 

NZfHRHSTl 

> READ FROH HARD DISK 

EDC1' 

CD EEDB' 

CALL 

MRFDSK 

? READ FROH FLOPPY DISK 

EDC7' 

38 OA 

JR 

CfHSTERR 

5 ERROR 

E0C9' 

18 05 

JR 

HSTNOR 

1 NORHAL RETURN 

EDCB' 

CD EF2E' 

HRHSTi: CALL 

MRHDSK 

i READ FROH HARO DISK 

EDGE' 

38 03 

JR 

C5HSTERR 

; ERROR 

EDDO' 

AF 

HSTNOR! XOR 

A 


EDDl' 

18 01 

JR 

HSTRET 


EDD3' 

37 

hsterr; scf 



EDDl’ 

El 

HSTRETS POP 

HL 


EDD5' 

C9 

RET 





f 

i 

DISK DRIVE SELECT 



} 

INI 

A = SELECT BYTE 
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f 

out: 

NONE 




# 

changed: 

NONE 

EDD6' 

F5 

DSKSEL! 

PUSH 

AF } SAVE SELECT BYTE 

EDD7' 

3A FOBS' 


LD 

Aj(DSKTYP) 

> GET DISK TYPE 

EDDA' 

CB T7 


BIT 

DISKTYrA 

; CHECK IF HARD DISK 

EDDC 

20 06 


JR 

NZfDSKSLl 

i YES 

EDGE' 

FI 


POP 

AF f GET SELECT BYTE 

EDDF' 

CD FFF6 


CALL 

FDSEL 

! SELECT DRIVE 

EDE2' 

18 07 


JR 

DSKRET 

: RETURN 

EDET' 

3E 20 

DSKSLi: 

LD 

A»PRECMP 

; GET PRECOiiPENSATION 

EDE6' 

D3 31 


OUT 

(HDPRCH)fA 

; NRITE PRECOMPENSATION 

EDE8' 

FI 


POP 

AF ; GET 

SELECT BYTE 

EDE9- 

D3 36 


OUT 

(HDSEL)rA 

t SELECT HARD DISK 

EDEB' 

C9 

oskret: 

RET 




RESTORE DISK DRIVE 

CARRY ON = ERROR RETURN 

changed: a 


EDEC 

E5 

rstore: push 

HL 


EOED' 

3A FOAE' 

LD 

A»(SELBYT) 

f GET SELECT BYTE 

EDFO' 

CD EDD6' 

CALL 

DSKSEL 

i SELECT DISK DRIVE 

EDF3' 

3A F0B3' 

LD 

Af'DSKTYP) 

? GET DISK TYPE 

EDF6' 

CB 17 

BIT 

DISKTYjA 

> CHECK IF HARD DISK 

EDF8' 

20 OA 

JR 

NZjRSTORI 

; YES 

EOFA' 

3A FOBl' 

RSTORO: LD 

A»(STEPS) 

1 GET STEPPING RATE 

EDFD’ 

F6 OC 

OR 

HOHEFD 

> PUT INTO COMMAND 

EDFF' 

CD FFF9 

CALL 

FDHCHD 

5 SEND COMMAND 

EE02' 

18 08 

JR 

RST0R2 


EE01' 

3A FOBl' 

RSTORi: LD 

Af(STEPS) 

! GET STEPPING RATE 

EE07' 

F6 OC 

OR 

HOHEFD 

J PUT INTO COMMAND 

EE09' 

CD FFFO 

CALL 

HDHCHO 

; SEND COMMAND 

EEOC 

E6 90 

RST0R2: AND 

SKERR 

; CHECK IF ERROR 

EEOE' 

32 FOAA' 

LD 

(ERFLAG)»A 

> SAVE STATUS 

EEll' 

20 09 

JR 

NZrRSTERR 

5 ERROR 

EE13' 

2A FOBC 

rstnor: LD 

HL»(LSTADR) 

: GET LAST TRACK ADDRESS 

EE16' 

AF 

XOR 

A 


EE17' 

77 

LD 

(HDjA 

i SET LAST TRACK TO 0 

EE18‘ 

23 

INC 

HL 


EE19' 

77 

LD 

(HL)jA 


EEIA' 

18 01 

JR 

RSTRET 


EEIC 

37 

rsterr: scf 



EEID' 

El 

rstret: pop 

HL 



V 
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EEIE' 

C9 

RET 





f 

» 

SEEK TRACK 




J 

CARRY ON = 

ERROR RETURN 



) 

f 

changed; 

A 

EEIF' 

C5 

seek; push 

BC 


EE20' 

D5 

PUSH 

DE 


EE21' 

E5 

PUSH 

hl 


EE22' 

CD EE92' 

CALL 

TRNTRK 

; TRANSLATE LOGICAL TRACK TO PHYSICAL TRACK 

EE25' 

3A F0B3' 

LD 

A»(DSKTYP) 

} GET DISK TYPE 

EE28' 

CB 17 

BIT 

DISKTYfA 

; CHECK IF HARD DISK 

EE2A’ 

20 52 

JR 

NZfSEEKNO 

; YESf NO SEEK 



t 

f 

> 

SELECT DISK AND SIDE 

EE2C’ 

3A FOAE' 

SEEKO; LD 

Aj(SELBYT) 

; GET SELECT BYTE 

EE2F' 

17 

LD 

B>A 


EE30' 

3A F0A2' 

LD 

At(RHSIDE) 

GET SIDE NUMBER 

EE33‘ 

B7 

OR 

A ; CHECK IF SIDE 0 

EE31' 

78 

LD 

AjB 


EE35' 

28 02 

JR 

ZrSEEKI 

t YES 

EE37' 

CB 07 

SET 

SELSIDiA 

i N0» SET SIDE 1 

EE3?' 

CD E0D6' 

SEEKi: CALL 

DSKSEL 

5 SELECT DRIVE 



» 

» 

> 

check if sane 

PHYSICAL TRACK 

EE3C' 

2A FOBC 

LD 

HL»(LSTADR) 

I GET LAST TRACK ADDRESS 

EE3F' 

5E 

LD 

E.(HL> 

f GET LAST PHYSICAL TRACK 

EE40‘ 

23 

INC 

HL 


EE11‘ 

56 

LD 

D»(HL) 


EE^2' 

7B 

LD 

A>E 

i SET UP TRACK REGISTER 

EE13' 

D3 11 

OUT 

(FDTRK)fA 


EE15' 

2A F09F‘ 

LD 

HL»{RNTRK) 

J GET CURRENT SEEK TRACK 

EE18' 

AF 

XOR 

A ? CHECK IF SAME TRACK 

EE49‘ 

ED 52 

SBC 

HLfDE 


EEIB' 

28 31 

JR 

ZtSEEKNO 

} yesj return 



« 

5 

f 

SEEK TRACK 


EE1D' 

06 02 

LD 

BjSEKRTY 

5 GET NUMBER OF SEEK RETRY 

EEIF' 

2A F09F' 

LOOPi; LD 

HLHRNTRK) 

f GET SEEK TRACK 

EE52' 

7D 

LD 

AjL 

; SEND TO CONTROLLER 

EE53' 

D3 13 

OUT 

(FDDATA)rA 


EE55' 

2E 1C 

LD 

L»SEEKFD 

» GET SEEK COMMAND 

EE57' 

3A FOBl' 

LD 

Af(STEPS) 

J GET STEPPING RATE 

EE5A' 

B5 

OR 

L ; PUT INTO COMMAND 
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EE5B' 

CD FFF9 

CALL 

EE5E' 

E6 90 

AND 

EESO' 

32 FOAA' 

LD 

EE63’ 

28 OF 

JR 

EE65' 

E5 

PUSH 

EE66' 

CD EDFA' 

CALL 

EE69' 

38 16 

JR 

EE6B' 

10 E2 

DJNZ 

EE6D' 

3E FF 

LD 

EE6F' 

32 FOAA' 

LD 

EE72' 

18 OD 

JR 

m 

m 

2A FOBC 

SEEKOKJ LD 

EE77' 

ED 5B F09F' 

LD 

EE7B' 

73 

LD 

EE7C' 

23 

INC 

EE7D' 

70 

4 i. 

LD 

EE7E' 

AF 

SEEKNO: XOR 

EE7F' 

18 07 

JR 

m 

m 

oo 

21 EF81' 

SEEKER! LD 

m 

m 

CO 

CD E3D1' 

CALL 

EE87' 

37 

SCF 

EE88' 

El 

SEEKRT} POP 

EE39' 

D1 

POP 

EE8A' 

Cl 

POP 

EE8B' 

C9 

RET 


i 

A 

} 

*f 


EE8C' 

C5 

SEEK2: PUSH 

EE8D’ 

D5 

PUSH 

EE8E' 

E5 

PUSH 

EE8F' 

C3 EE2C' 

JP 

EE92' 

F5 

TRNTRK! PUSH 

EE93' 

C5 

PUSH 

EE94' 

05 

PUSH 

EE95' 

E5 

PUSH 

EE96' 

3A F0B2' 

LD 

EE99‘ 

FE 01 

CP 

EE9B' 

3E 00 

LD 

EE9D' 

23 30 

JR 

EE9F’ 

47 

LD 

EEAO' 

3A F0B2' 

LD 

EEA3' 

37 

SCF 

EEA4' 

3F 

CCF 

EEA5’ 

CB IF 

LOOPlS RR 

EEA7' 

28 03 

JR 

EEA9' 

04 

INC 

EEAA' 

18 F9 

JR 


FDHCHD ; SEEK TRACK 

SKERR ; CHECK IF ERROR 

(ERFLAG)?A ? SAME STATUS 

2»SEEKOK t NO 

HL 

RSTORO ; ERROR? RESTORE DRIVE 

CfSEEKER f RESTORE ERROR 

LOOP4 5 RETRY 

AjOFFH f SET ERROR FLAG 

(ERFLAG)?A 

SEEKER ? ERROR 

HL?(LSTADR) J GET LAST TRACK ADDRESS 

DEjIRNTRK) » GET CURRENT TRACK 

(HL)fE i UPDATE LAST TRACK 

HL 

(HL)»D 

A 

SEEKRT 

HL?ERMSG2 5 DISPLAY MESSAGE 

PMSG 

HL 

DE 

EC 


TRANSLATE LOGICAL TRACK TO PHYSICAL TRACK 


BC 

DE 

HL 

SEEKO 

AF 

BC 

DE 

HL 

A?(SIDES) 5 GET THE NUMBER OF SIDES 
1 > CHECK IF SINGLE SIDED 

A?0 f SET TO SIDE 0 

ZjTRNRET f RETRUN 

B?A f CLEAR COUNTER 

A?(SIDES) 5 GET THE NUMBER OF SIDES 


A i CALCULATE L0G2 OF SIDES 

ZjTRNI j LOOP ENDS 

B 5 INCREMENT COUNTER 

LOOPl 


V 
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EEAC 

C5 

TRNU PUSH 

BC 


EEAD' 

2A F09F' 

LD 

HL»(RMTRK) 

J GET LOGICAL TRACK 

EEBO' 

AF 

L00P2! XOR 

A ; DIVIDE BY NUMBER OF SIDES BY SHIFTING 




f RIGHT L0G2 NUMBER OF OF SIDES 

EEBl’ 

7C 

LD 

ArH 


EEB2’ 

IF 

RRA 



EEB3' 

67 

LD 

HrA 


EEBr 

70 

LD 

AjL 


EEB5' 

IF 

RRA 



EEB(S’ 

6F 

LD 

LjA 


EEB?' 

10 F? 

DJN2 

LOOP2 


EEB9' 

ED 5B F09F' 

LD 

DE»(RHTRK) 

: GET LOGICAL TRACK NUMBER 

EEBO' 

22 F09F' 

LD 

(RHTRK)jHL 

» SAVE PYHSICAL TRACK NUMBER 

EECO' 

Cl 

POP 

BC 


EECl' 

AF 

L00P3; XOR 

A 


EEC2’ 

7C 

LD 

AjH 


EEC3' 

17 

RLA 



EECr 

67 

LD 

H>A 


EEC5' 

70 

LD 

ArL 


EEC6' 

17 

RLA 



EEC?' 

6F 

LD 

LrA 


EEC8' 

10 F7 

DJNZ 

L00P3 


EECA' 

AF 

XOR 

A ; CALCULATE SIDE NUMBER 

EECB' 

EB 

EX 

DEfHL 


EECC 

ED 52 

SBC 

HLfDE 


EECE’ 

70 

LD 

AiL 


EECF' 

32 F0A2' 

TRNRET} LD 

(RUSIDE)rA 

f SAVE SIDE NUMBER 

EED2' 

El 

POP 

HL 


EED3' 

01 

POP 

DE 


EED4' 

Cl 

POP 

BC 


EED5' 

FI 

POP 

AF 


EED6' 

C9 

RET 


. 



5 

# 

READ FLOPPY DISK SECTOR 



f 

CARRY ON 

= ERROR RETURN 



* 

f 

CHANGED} 

A 

EED7' 

3E 82 

RDFDSK; LD 

AjREADFD 

; GET READ COMMAND 

EED9' 

18 02 

JR 

FDSKRH 




« 

t 

WRITE FLOPPY DISK SECTOR 



t 

CARRY ON 

= ERROR RETURN 



f 

CHANGED} 

A 


f 


EEDB' 

3E A2 

MRFDSK} LD 

AfHRITFD } GET HRITE COMMAND 

EEDD' 

32 FOAD' 

FDSKRH} LD 

(DSKCMD).A 

EEEO' 

C5 

PUSH 

BC 

EEEl' 

E5 

PUSH 

HL 


V 
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EEE2' 

3A FOAl' 


ld 

EEE5' 

D3 12 


OUT 

EEE7' 

06 OA 


LD 

EEE9' 

3A F0A2’ 

loops: 

LD 

EEEC 

B7 


OR 

EEED' 

3A FOAD' 


LD 

EEFO' 

28 02 


JR 

EEF2' 

CB DF 


SET 

EEF4' 

21 F376' 

FDSKi: 

LD 

EEF7' 

CD FFF3 


CALL 

EEFA' 

32 FOAA' 


LD 

EEFD’ 

B7 


OR 

EEFE’ 

28 27 


JR 

EFOO' 

10 02 


DJNZ 

EF02' 

18 OF 


JR 

EF04' 

CB 67 

FDSK3: 

BIT 

EF06' 

CA EEE9' 


JP 

EF09' 

06 01 


LD 

EFOB' 

CD EDEC 


CALL 

EFOE’ 

CD EE8C' 


CALL 

EFll' 

18 D6 


JR 

EF13' 

47 

FDSK4: 

LD 

EF14' 

3A F09E‘ 


LD 

EF17' 

FE 00 


CP 

EF19' 

28 OB 


JR 

EFIB' 

73 


LD 

EFIC 

CB 77 


BIT 

EFIE' 

28 06 


JR 

EF20' 

21 EF62' 


LD 

EF23' 

CD E3D1' 


CALL 

EF26‘ 

37 

fdsker: 

SCF 

EF27' 

El 

fdskrt: 

POP 

EF28' 

Cl 


POP 

EF29' 

C9 


RET 


t 

f 

} 

f 

5 

EF2A' 3E 20 RDHDSKJ LD 

EF2C‘ 18 02 JR 

5 

« 

.♦ 

t 

i 


A»(R«SEC) ? GET SECTOR NUHEO 
(FDSEOjA ; SET SECTOR REGISTER 

E:»RETRY » GET RETRY COUNT 

AjIRHSIDE) > GET SIDE NUMBER 

A f CHECK IF SIDE 0 

ArlDSKCMD) 5 GET COMMAND 

Z»FDSK1 ; YES 

SIDEjA 1 SET SIDE 1 IN COMMAND 

HL?HSTBLIF 1 GET BUFFER ADDRESS 

FDRH ; READ/HRITE SECTOR 

(ERFLAG)fA t SAVE STATUS 

A J CHECK IF ERROR 

Z»F0SKRT ! NORMAL RETURN 

FDSK3 
FDSK4 

RNFERR»A 

ZjLOOPS 

BjI 

RSTORE 

SEEK2 

LOOPS 

B>A 

Ar(RDHROP) 1 GET OPERATION CODE 

READ 5 CHECK IF READ 

ZtFdsker 5 yesj error return 

A>B 

MRPROTfA f CHECK IF WRITE PROTECTED 

ZfFDSKER ; NO 

HLjERHSGI J display error MESSAGE 

PMSG 


HL 

BC 


READ HARD DISK SECTOR 
CARRY ON = ERROR RETURN 

changed: a 


A.READHD 5 GET READ COMMAND 

HDSKRN 


WRITE HARD DISK SECTOR 
CARRY ON = ERROR RETURN 

changed: a 


f 
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EF2E' 

3E 

30 

nrhdsk: LD 

AjWRITHD 

5 GET WRITE COMMAND 

EF30' 

32 

FOAD' 

HDSKRWt LD 

(DSKCHDIjA 


EF33' 

C5 


PUSH 

BC 


£¥2V 

E5 


PUSH 

HL 


EF35‘ 

3A 

F0A2' 

LD 

Aj(RHSIDE) 

; GET SIDE NUMBER 

EF38‘ 

E6 

07 

AND 

HEAD 

I GET HEAD NUMBER 

EF3A' 

6F 


LD 

LfA 


EF38' 

3A 

FOAE' 

LD 

AflSELBYT) 

! GET SELECT BYTE 

EF3E' 

B5 


OR 

L i PUT HEAD NUMBER INTO SELECT BYTE 

EF3F' 

D3 

36 

OUT 

(HOSED rA 

1 SELECT DRIVE AND HEAD 

EF^r 

3A 

F0A1‘ 

LD 

AfCRHSEC) 

f GET SECTOR NUMBER 

EF'I'l' 

D3 

33 

OUT 

(HDSEOfA 

i SET SECTOR REGISTER 

EF^6’ 

2A 

F09F' 

LD 

HL»(RNTRK) 

5 GET TRACK NUMBER 

EFI?’ 

7D 


LD 

ArL 

; SELECT TRACK 

EF4A' 

D3 

31 

OUT 

(HDCYLDjA 


EF4C' 

7C 


LD 

AfH 


EF4D' 

D3 

35 

OUT 

(HDCYLH).A 


EF4F' 

3A 

FOAD' 

LD 

A,(OSKCHD) 

1 GET COMMAND 

EF52' 

21 

F376' 

LD 

HL»HSTBUF 

? GET BUFER ADDRESS 

EF55' 

CD 

FFED 

CALL 

HDRH 

f READ/WRITE SECTOR 

EF58’ 

32 

FOAA' 

LD 

(ERFLAG)»A 

> SAVE STATUS 

EF5B' 

B7 


OR 

A ; CHECK 

IF ERROR 

EF5C’ 

28 

01 

JR 

ZjHDSKRT 

> NORMAL RETURN 

EF5E' 

37 


SCF 



EF5F' 

El 


HDSKRTJ POP 

HL 


EF60' 

Cl 


POP 

BC 


EF61‘ 

C9 


RET 






f 

i 

MESSAGES 


EF62' 

OD 

OA 11 69 

ERHSGl! DB 

CR»LFj'D iskette 

is write-protected.' jEOL 

EF66' 

73 

6B 65 71 




EF6A' 

71 

65 20 69 




EF6E' 

73 

20 77 72 




EF72' 

69 

71 65 2D 




EF76' 

70 

72 6F 71 




EF7A' 

65 

63 71 65 




EF7E' 

61 

2E 00 




EF81' 

OD 

OA 11 69 

ERHSG2J OB 

CRjLFj'D iskette seek error'»EOL 

EF85' 

73 

6B 65 71 




EF89' 

71 

65 20 73 




EF8D' 

65 

65 6B 20 




EF91' 

65 

72 72 6F 




EF95’ 

72 

00 




EF97' 

OD 

OA 50 72 

ERHSG31 DB 

CRtLFj 'Printer : 

is not reedy.' 

EF9B' 

69 

6E 71 65 




EF9F' 

72 

20 69 73 




EFA3' 

20 

6E 6F 71 




EFA7' 

20 

72 65 61 




EFAB' 

61 

79 2E 
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EFAE’ 

OD OA 50 72 

OB 

CRrLFf 

'Press RETURN to continue*' jEOL 


EFB2' 

EFB6' 

65 73 73 20 
52 K 5^ 55 





EFBA' 

52 4E 20 71 





EFBE' 

6F 20 63 6F 





EFC2' 

6E 71 69 6E 





EFC6' 

75 65 2E 00 





EFCA' 

00 OA 11 69 

ERMSGli OB 

CR.LFf 

'Oisk is not activated.' jEOL 


EFCE' 

73 6B 20 69 





EFD2' 

73 20 6E 6F 





EFD6' 

71 20 61 63 





EFDA' 

71 69 76 61 





EFDE' 

71 65 61 2E 





EFE2' 

00 





EFE3‘ 

00 OA 13 61 

ERHSG5! OB 

CR.LFr 

'Cannot read systeis.' 


EFE7' 

6E 6E 6F 71 





EFEB’ 

20 72 65 61 





EFEF’ 

61 20 73 79 





EFF3' 

73 71 65 60 





EFF7' 

2E 





EFF8' 

00 OA 19 6E 

OB 

CRjLFj 

'Insert syste® diskette.' 


EFFC 

73 65 72 71 





FOOO' 

20 73 79 73 





mv 

71 65 60 20 





F008' 

61 69 73 6B 





FOOC 

65 71 71 65 





FOlO' 

2E 





Foil' 

00 OA 50 72 

OB 

CR»LFf 

'Press RESET button,'rEOL 


F015' 

65 73 73 20 





F019' 

52 15 53 15 





FOlO' 

51 20 62 75 





F021' 

71 71 6F 6E 





F025' 

2E 00 







4 

» PVTC OATA STORAGE 
? 


F027' 

00 

SCRLFLG! 

OB OFF 

f SCROLL FLAG 


F028' 

00 

bkfrflg: 

OB 0 

; BACK/FOREGROUNO FLAG 


F029’ 

00 

LEAOFLGJ 

OB 0 

5 LEAO-IN FLAG 


F02A' 

00 

loflg: 

OB 0 



F02B‘ 

00 

SNANL! 

OB OFF 

> AUTO NEWLINE SWITCH 
; ON - AUTO WRAPAROUND! NO LINEFEEO 
; OFF - LINE TRUNCATE! LINEFEED 


F02C' 

00 

SMALFl 

OB OFF 

f AUTO LINEFEED SWITCH 
* ON - AUTO LINEFEED WITH CR 






5 OFF - NO LINEFEED WITH CR 


F02D’ 

00 

SKLEAO! 

OB OFF 

! LEAO-IN SWITCH 
f ON - ESC 
! OFF - TILDA 


F02E' 

00 

LINETP} 

OB 0 

! TEHPORARY LINE NUMBER 


F02F’ 

00 

COLTPS 

OB 0 

; TEHPORARY COLUMN NUMBER 


F030' 

00 

CURCNTt 

OB 0 

! CURSOR COUNT NUMBER 
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F03V 

FF 

CURSNI 

DB ON t 

CURSOR SNITCH 


F032' 

00 

CHRCNT5 

DB 0 ; 

CHARACTER COUNT 

F033' 

00 

GRPHSHJ 

DB OFF } 

GRAPHIC SNITCH 


F034' 

00 

TIMEOUT? 

DB OFF ; 

TIMEOUT ON LIST 


F035' 

00 

KEYSN5 

DB OFF ? 

KEYBOARD LOCK OUT 


F036' 

F578' 

BUFADR! 

DH CHRBUF 

t CHARACTER BUFFER ADDRESS 


F038' 

OA 

COUNTER? 

DB 10 







; OUTPUT PROCESSING ROUTINES 

5 


F03?' 

EB5A’ 

E801‘ 

CHRTAB? DN 

NONEiONC»OFFC>ONDjOFFD»SNDADR»KUNLKiBELL 


F03D' 

E80B' 

E7F7' 




F041' 

E7FC' 

E7D5' 




F045‘ 

E7C2' 

E79F' 




F049‘ 

E6D5' 

EB5A' 

DN 

BKSPACE,NONEfLFEED»CURDNN>CURUPjCARRTN»NONEfCLREND 


F04D' 

E678' 

E8e4' 




F051' 

E841' 

E6B6' 




F055' 

EB5A' 

E9B3' 




F059' 

E70B' 

E8C8' 

DN 

CURIGTjDIRADRfCURHME»DELLNEfNONEfKLOCK»NONEjCLRBK 


F05D' 

E8B2' 

EA2A' 




F061' 

EB5A' 

E7BC' 




F065' 

EB5A' 

E9E0’ 




F069' 

E9DC‘ 

E82r 

DN 

CLRFSC»SETBK»INSLNEjESCAPEfCLRSCN»NONEfGRAPHTSETFR 


F06D' 

EAA5’ 

E826' 




F071' 

E96E' 

EB5A’ 




F075' 

E815’ 

E81B' 




f 




t LEAD-IN TABLE 

t 

F079' 

00 FF FF FF 

LEADTB? DB 

OFFrONrONrONfON>ON;ON>OFF 

F07D' 

FF FF FF 00 



F081’ 

00 00 00 FF 

DB 

OFF»OFF f OFF»ON»ON»OFF»OFF»ON 

F085' 

FF 00 00 FF 



F089’ 

00 FF FF FF 

DB 

OFF.ON»ONfONfOFF»ONjOFF»ON 

F080' 

00 FF 00 FF 



F091' 

FF FF FF 00 

DB 

ON»ONfONfOFF»ONfOFFfONjON 

F095' 

FF 00 FF FF 

A 

f 

A 

UNITIALIZED DATA AREA 


t 





f 

t 

t 

READ/NRITE OPERATION DATA 


F099' 

SEKDSK? 

DS 

1 } SEEK DISK NUMBER 


F09A' 

SEKTRK? 

DS 

2 f SEEK LOGICAL TRACK NUMBER 


F09C' 

SEKSEC? 

DS 

1 J SEEK LOGICAL SECTOR NUMBER 




f 

f 

BUFFER OPERATION DATA 
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F09D' 

NRTYPE! 

DS 

1 

{ NRITE BUFFER TYPE 

F09E' 

RDHROPt 

DS 

i 

5 READ/HRITE OPERATION CODE 

F09F' 

RHTRKI 

DS 

2 

> READ/NRITE TRACK NUHBER 

FOAl' 

RHSEC: 

OS 

1 

J READ/WRITE SECTOR NUHBER 

F0A2' 

RWSIDEJ 

DS 

1 

f READ/MRITE SIDE NUHBER 

F0A3- 

BUFDSK5 

DS 

1 

! DISK NUHBER FOR HOST BUFFER 

F0A4' 

BUFTRK5 

DS 

2 

; TRACK NUHBER FOR HOST BUFFER 

FOAo’ 

BUFSEC; 

OS 

1 

; SECTOR NUHBER FOR HOST BUFFER 

F0A7' 

BUFACT5 

OS 

1 

> HOST BUFFER ACTIVE INDICATOR 

F0A8' 

HSTSECJ 

DS 

1 

? PHYSICAL SECTOR NUHBER 

F0A9' 

LOGOFF! 

DS 

1 

f LOGICAL OFFSET IN PHYSICAL SECTOR 

FOAA' 

ERFLAG! 

DS 

1 

f ERROR FLAG 

FOAB' 

DHAAD! 

DS 

2 

5 DHA ADDRESS 

FOAD‘ 

DSKCHD! 

DS 

1 

1 DISK COHHAND 


; SCRATCH DATA AREA 
? 

FOAE‘ BEGDAT EQU $ ? BEGINNING OF DATA AREA 


5 DISK TABLE SAVE AREA BEGIN 
! 


FOAE' 

SELBYT! DS 

1 ; 

SELECT BYTE 

FOAF' 

SECSIZ! DS 

2 f 

SECTOR SIZE 

FOBl' 

STEPS! DS 

1 } 

STEPPING RATE 

F0B2' 

SIDES! OS 

1 ; 

NUHBER OF SIDES 

FOBS' 

OSKTYP! DS 

1 ! 

DISK TYPE 


» 

t 

DISK 

TABLE SAVE AREA END 


J TAB SAVE AREA BEGIN 
f 


F0B4’ 

HSTSIZ! DS 

2 

? PHYSICAL SECTOR SIZE 

F0B6' 

BLKSIZ! DS 

2 

; BLOCK SIZE 

FOBS' 

HSTBLK! DS 

1 

J NUHBER OF LOGICAL SECTOR PER PHYSICAL SECTOR 

F0B9' 

CPHSPT! DS 

1 

; NUHBER OF LOGICAL SECTORS PER LOGICAL TRACK 

FOBA' 

SECHSK! DS 

1 

> HSTBLK - 1 

FOBS' 

SECSHF! DS 

1 

5 L0G2(HSTBLK) 
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f 

f 

DISK 

BUFFERS 

F0C2' 

DIRBFi 

DS 

128 

} SCRATCH DIRECTORY AREA 

F112* 

ALL005 

DS 

12 } 

ALLOCATION VECTOR 0 

FHE' 

ALLOIJ 

DS 

19 5 

ALLOCATION VECTOR 1 

F17F' 

ALL02J 

DS 

19 ; 

ALLOCATION VECTOR 2 

FiBO' 

ALL03J 

DS 

77 * 

ALLOCATION VECTOR 3 

FIFD' 

ALL04; 

DS 

153 

* ALLOCATION VECTOR 1 

F296' 

CHKOOl 

DS 

U > 

CHECK VECTOR 0 

F2A6' 

CHKOi; 

DS 

61 ! 

CHECK VECTOR 1 

F2E6' 

CHK02} 

DS 

61 t 

CHECK VECTOR 2 

F326' 

BUFTPJ 

DS 

80 } 

TEHPORARY BUFFER 

F376' 

HSTBUF5 

DS 

512 

f LARGEST PHYSICAL SECTOR SUPPORTED 

F576' 

TIHERJ 

DS 

2 t 

LIST DEVICE TIMER 

F578’ 

CHRBUF! DS 

10; 

INPUT CHARACTER 

F582' 

dosstk; 

t 

DS 

2 t 

STORAGE FOR BOOS STACK 

F58^' 

i 

DS 

60 


F5C0' 

LOCSTK 

EQU 

$ ? 

BIOS STACK 

F5C0' 

ENDDAT 

EGU 

$ 

; END OF DATA AREA 

0512 

DATSIZ 

EQU 

$-BEGDAT 1 SIZE OF DATA AREA 



END 
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Macros! 


Syiiibols'. 


F142' 

ALLOO 

F14E' 

ALLOl 

F17F' 

ALL02 

Fieo' 

ALL03 

FIFO' 

ALL04 

D406 

BDOS 

0006 

BDOSAD 

0007 

BEEP 

FOAE' 

BEGDA! 

E79F' 

BELL 

9800 

BIAS 

E200 

BIOS 

F028' 

BKFRFLG 

E6D5' 

BKSPACE 

0020 

BLANK 

F0B6' 

BLKSIZ 

0006 

BLOCK 

E378' 

BOO! 

E703' 

BSMOVl 

E6EC' 

BSMOOL 

E704' 

BSOU! 

E70A' 

BSRET 

F0A7' 

BUFACT 

F036' 

BUFAOR 

F0A3' 

BUFDSK 

F0A6' 

BUFSEC 

F326' 

BUFTP 

F0A4' 

BUFTRK 

0005 

BWSCN 

E6B6' 

CARPJN 

CCOO 

CCP 

0004 

CDISK 

E8AB' 

CDHNl 

E8ei‘ 

CDNNRT 

E634' 

CHAROUT 

F296' 

CHKOO 

F2A6' 

CHKOl 

F2E6' 

CHK02 

E66F' 

CHKLIN 

E677' 

CHORE! 

F573' 

CHRBUF 

F032’ 

CHRCN! 

E65E‘ 

CHROT 

E668’ 

CHROTl 

F039' 

CHRTAB 

E9E0' 

CLRBK 

E9B3' 

CLREND 

E9E2' 

CLRFl 

EA15' 

CLRF2 

EA22' 

CLRFRT 

E9DC' 

CLRFSC 

E9A0' 

CLRSCl 

E96E' 

CLRSCN 

0000 

C0L40 

E556' 

COLBCK 

E567' 

COLBKl 

E56C' 

C0LBK2 

E56F' 

COLBRT 

0037 

COLBH 

E541' 

COLFOR 

E552' 

COLFRT 

0038 

COLFH 

FFD4 

COLNO 

F02F' 

COLTP 

E5BB' 

CONI 

E5DC' 

CONIA 

E5D3' 

CONIC 

E5E1' 

C0N2 

E5EA' 

CONS 

E5EF' 

C0N3A 

E5F4' 

C0N4 

E618' 

CONS 

E60D' 

C0N6 

E61D' 

CONEND 

E4E4' 

CONIN 

E4EA' 

C0NIN2 

FFEA 

CONINP 

E59D' 

CONOU! 

E628‘ 

CONRT 

E4A8' 

CONST 

E4D9' 

CONSTl 

E4DB’ 

C0NST2 

E4BC' 

C0NST3 

FFE7 

CONSTA 

0018 

CONTRL 

E96B' 

CONOR! 

F038' 

COUNTER 

F0B9' 

CPMSPT 

OOOD 

CR 

E883' 

CUPRE! 

F030' 

CURCMT 

E884' 

CURDNN 

E73C' 

CURE! 

E8B2' 

CLIRHME 

E71F' 

CURIGl 

E735' 

CURIG2 

E736‘ 

CURIG3 

E70B' 

CURIG! 

E8C7' 

CURRE! 

F031' 

CURSN 

E841' 

CURUP 

E86F' 

CURUPl 

E87D' 

CURUP2 

0512 

DATSIZ 

EA45' 

DELI 

EA66' 

DEL2 

EA69' 

DEL3 

EA72' 

DEL4 

FFFC 

DELAY 

EA8C' 

DELCLR 

EA2A' 

DELLNE 

E8CE’ 

DIADRl 

E8FD' 

DIADR2 

E953' 

0IADR3 

E958' 

DIADR4 

E95E' 

DIADR5 

E93D' 

DIADR6 

E922' 

DIADR7 

E8F4' 

DIADR8 

E919' 

DIA0R9 

E8E8’ 

DIADRA 

E910' 

DIADRB 

E8E3' 

DIAORC 

E8F7' 

DIADRD 

E930' 

OIADRE 

ED02' 

DIFBUF 

E8C8‘ 

DIRADR 

F0C2' 

DIRBF 

E31F' 

DISKO 

E32A' 

DISK! 

E335' 

0ISK2 

E340' 

DISK3 

E34B' 

DISK4 

0000 

DISKTY 

FOAB’ 

DHAAD 

FFE3 

OHAPTP 

F582’ 

DOSSTK 

FOCO' 

DPADDR 

E237' 

DPBASE 

E2C4' 

DPBLKO 

E2D3' 

DPBLKl 

E2E2' 

DPBLK2 

E2F1' 

DPBLK3 

E300' 

DPBLK4 

FFE5 

DPBTP 

FOAD' 

DSKCHD 

E233' 

DSKMAP 

EDEB' 

DSKRET 

EDD6' 

DSKSEL 

EDE4' 

DSKSLl 

FOBE' 

DSKTAB 

F0B3' 

DSKTYP 

07FF 

ENDADR 

F5C0' 

ENDDAT 

0000 

EOL 

FOAA' 

ERFLAG 



EF62' 

ERMSGl 

EFCA' 

ERHSG4 

0010 

FDBASE 

0007 

FDERR 

0004 

FDISK2 

0012 

FDSEC 

EF04' 

FDSK3 

EF27' 

FOSKRT 

0011 

FDTRK 

EC39' 

GETPARH 

0003 

GRAPHIC 

0037 

HDCMD 

0030 

HDDATA 

0006 

HDINT 

0031 

HDPRCH 

0036 

HDSEL 

0037 

HDSTAT 

EBE8’ 

HOHE 

FOBS' 

HSTBLK 

EDDO' 

HSTNOR 

F0B4' 

HSTSIZ 

E527' 

IN08 

E53A' 

IHRET 

EAC5' 

INSl 

EAFF' 

INS4 

EB20’ 

INSRT 

OOOE 

INTREQ 

FFE2 

lOREG 

0097 

IRIO 

0017 

IR4 

0029 

IR7 

FFEl 

IREG 

0004 

KBDINT 

F035' 

KEYSH 

F02A' 

LDFLG 

0039 

LEFT 

E684' 

LFEEDl 

E6B5' 

LFRET 

F02E' 

LIHETP 

EB85' 

LISTOT 

EBCE' 

LISTS2 

F5C0' 

LOCSTK 

EEA5' 

LOOPl 

EC19' 

L00P12 

E7A2' 

L00P16 

EB76' 

L00P20 

EECl' 

L00P3 

E93A' 

L00P6 

EBEO' 

LSTRET 

0003 

HAXDSK 

0028 

HAXTMC 

003A 

HSIZE 

0000 

OFF 

E7FC' 

OFFD 

FFDB 

OFFTMP 

0031 

ONCUR 


EF81' 

ERHSG2 

EFE3' 

ERHSG5 

0010 

FDCHD 

FFF9 

FDHCMD 

0008 

FDI3K3 

FFF6 

FDSEL 

EF13' 

F0SK4 

EEDO' 

FDSKRH 

OOOC 

FHFEED 

E454' 

GOCPH 

F033' 

GRPHSH 

0035 

HDCYLH 

0007 

HDERRZ 

0003 

HDISKl 

FFED 

HORN 

EF5F' 

HDSKRT 

0007 

HEAD 

OOOC 

HOMEFD 

F376' 

HSTBUF 

EDD4' 

HSTRET 

E515' 

IN06 

E531' 

IN09 

E53C' 

INRETl 

EADF' 

INS2 

EBOA' 

INS5 

0004 

INTLCE 

0000 

INTRPT 

0044 

IRO 

OOOC 

IR2 

004F 

IRS 

0080 

IRS 

00C3 

JHPCOD 

0004 

KCAPLK 

E7BC' 

KLQCK 

F029' 

LEADFLG 

OOOA 

LF 

E6A4' 

LFEED2 

0003 

LINEO 

EB5E' 

LIST 

EB84' 

LISTRT 

EBD2' 

LISTS3 

F0A9' 

LOGOFF 

EB44' 

LOOPl 0 

E7AB' 

L00P13 

EBBS' 

L00P17 

E7CB' 

L00P21 

EE4F' 

L00P4 

EB30’ 

L00P9 

0005 

HARGIN 

0017 

HAXLIN 

004C 

NODE 

EB5A' 

NONE 

E80B' 

OFFC 

0028 

OFFDIS 

OOFF 

ON 

E7F7' 

OND 


EF97' ERHSG3 

E826' ESCAPE 

0013 FDDATA 

0002 FDISKl 

FFF3 FDRH 

EEFr FDSKl 

EF26' FDSKER 

0010 FDSTAT 

0080 FORGND 

E815' GRAPH 

0030 HDBASE 

0034 HDCYLL 

FFFO HDHCHD 

0005 HDISK2 

0033 HDSEC 

EF30‘ HDSKRH 

0002 HGHINT 

0010 HOHEHD 

EDD3' HSTERR 

F0A8' HSTSEC 

E51E' IN07 

E50A' IHFUNC 

E530' INRET2 

EAFC INS3 

EAA5' INSLNE 

0018 INTHSK 

0003 lOBYTE 

0032 IRl 

OOAA IR3 

0009 IR6 

0010 IR9 

E62D' JUMP 

0008 KEYBD 

E7C2' KUNLK 

F079' LEADTB 

E673' LFEED 

E6AE' LFEE03 

FFD6 LINENO 

EB73' LISTl 

EBCB' LISTSl 

EB94' LISTS! 

E459’ LOOPO 

EB53' LOOPll 

E7B4' L00P14 

EEBO' L00P2 

E508' L00P22 

EEE9' LOOPS 

FOBC LSTADR 

0050 MAXCOL 

0028 MAXOFF 

FFEO HODREG 

E4A0' NXTSEC 

0030 OFFCUR 

FFD9 OFFSET 

E801' ONC 

003D ONDICU 
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0029 

ONDIS 

EDIB' 

OPREAD 

OOOA 

FFE7 

PBASE 

E3D1' 

PHSG 

E3D5' 

0020 

PRECHP 

0005 

PRINT 

0000 

0005 

PTRBSY 

OOOD 

PTRDAT 

0003 

EBE2' 

PUNCH 

OOAC 

RDCUR 

ECBl' 

EED7' 

RDFDSK 

EF2A' 

RDHDSK 

ED78' 

ED9E‘ 

RDHSTl 

00A4 

RDPT 

E48B' 

EW 

RDSRET 

E48D' 

RDSTRY 

E433' 

F09E' 

RDWROP 

0005 

RDYFLG 

0000 

EBE5' 

READER 

0082 

READFD 

0020 

0001 

REBOOT 

0080 

RECLEN 

0000 

OOOA 

RETRY 

0030 

RIGHT 

0004 

EEIC 

RSTERR 

0040 

RSTFLG 

EE13' 

EDFA' 

RSTORO 

EE04‘ 

RSTORl 

EEOC 

EDEC 

RSTORE 

EEID' 

RSTRET 

0001 

ECCA’ 

R«1 

ECD2' 

RH2 

EDIE' 

ECBD' 

PNOPER 

ED37‘ 

RWRET 

FOAl’ 

F0A2' 

RHSIDE 

F09F' 

RHTRK 

E59B" 

E585' 

SCNUPl 

E598' 

SCNUP2 

E570' 

F027' 

SCRLFLG 

E778' 

SCRLLl 

E779' 

E739‘ 

SCRLL3 

E73D' 

SCROLL 

FFD7 

FOBA’ 

SECHSK 

FOBB' 

SECSHF 

FOAF' 

EC?r 

SECTNl 

EC87' 

SECTRAN 

EC97' 

EEIF' 

SEEK 

EE2C' 

SEEKO 

EE39' 

EE8C' 

SEEK2 

EE81' 

SEEKER 

OOlC 

EE7E' 

SEEKNO 

EE74' 

SEEKOK 

EE88' 

F099‘ 

SEKDSK 

0002 

SEKRTY 

F09C' 

F09A' 

SEKTRK 

EC2A' 

SELBAD 

FOAE' 

EBFO’ 

SELDSK 

0000 

SELFA 

0001 

ECIF' 

SELHHl 

EC06' 

SELHHE 

EC24' 

EC38' 

SECRET 

EC30' 

SELRST 

0002 

E821’ 

SETBK 

EC99' 

SETDHA 

E81B' 

EC32' 

SETSEC 

EBEB' 

SETTRK 

0003 

F0B2' 

SIDES 

E35A‘ 

SIGHON 

0090 

E7E7' 

SNDADl 

E7F1' 

3NDAD2 

E7D5' 

0002 

SPLIT 

0080 

STADR 

0018 

005C 

STEPFD 

FOBl' 

STEPS 

F02C 

F02B' 

SHANL 

FFDF 

SWITCH 

F02D' 

0005 

SYSCAL 

E30F’ 

TABO 

E317' 

007E 

TILDA 

F034' 

TIHEOUT 

F576' 

FFFF 

TIHING 

E830' 

TLDA 

E83D' 

ED75' 

IRANI 

ED3F' 

TRANS 

E29B' 

OOOA 

TRKOEN 

0002 

TRKOST 

0002 

0001 

TRKIST 

EEAC 

TRNl 

EECF' 

EE92' 

TRNTRK 

0001 

TV 

OOOA 

E123' 

THOSIO 

E78E' 

LlPDLIN 

E79E' 

FFDD 

MBFLAG 

0004 

VBLANK 

0000 

0001 

VTCCND 

0004 

VTCCUl 

0005 

OOlC 

VTCDAT 

0000 

VTCINI 

OOOD 

OOID 

VTCHOD 

0006 

VTCPTl 

0007 

0002 

MTCSCl 

0003 

VTCSC2 

0001 

EB2D' 

HAIT 

EB38' 

WAIT! 

EB23' 

EBW 

WAITNO 

EB59’ 

HAITRT 

0000 

EW 

HBERR 

E3E2' 

HBOOT 

E3F5’ 

E203' 

MBOOTE 

OOID 

WIDTH 

0000 

OOBB 

HRCP 

OOAA 

WRCUR 

0001 


PADDING 

PHSGl 

PROHPT 

PTRSTR 

RDDISK 

RDHST 

RDSECS 

RDTRKl 

READ 

READHD 

RESET 

RNFERR 

RSTNOR 

RST0R2 

RDERSE 

RHLAST 

RHSEC 

SCNRET 

SCNUPD 

SCRLL2 

SCSTART 

SECSI2 

SECTRT 

SEEKl 

SEEKFD 

SEEKRT 

3EKSEC 

SELBYT 

SELFB 

SELOK 

SELSID 

SETFR 

SIDE 

SKERR 

SNDADR 

STATUS 

SWALF 

SHLEAD 

TABS 

TIHER 

TLDAl 

TRANSO 

TRKIEN 

TRNRET 

TDCNT 

UPOLRT 

MTCBASE 

VTCCU2 

VTCINP 

UTCPT2 

VTCSTA 

HAIT2 

HARHST 

HBOOTi 

WRALL 

HRDIR 
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EC9F' 

HRDISK 

EEDB' 

HRFDSK 

EF2E' 

NRHDSK 

EDA5' 

HRHST 

EDCB' 

HRHSTl 

OOAB 

HRIHC 

0001 

WRITE 

00A2 

HRITFD 

0030 

WRITHD 

0006 

WRPROT 

F09D' 

HRTYPE 

0002 

HRULA 


Ho Fatal error(s) 



